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The  purpose  of  this  thesis  is  to  provide  an  inventory'  database  management 
system  for  a  ROK  Army  infantry  division. 

Since  1973.  the  ROK  Army  has  significantly  improved  its  capability  in  logistics 
management  by  using  computer  systems.  However,  the  operational  level  of  command 
(the  division)  has  some  difficulties  in  meeting  higher  command  requirements  because  of 
the  unavailability  computer  hardware  and  software.  As  of  last  year,  the  computer 
hardware  was  installed  at  the  division  level.  User  friendly  software  development  has 
become  another  requirement  for  effective  use  of  this  computer  hardware.  To  help  meet 
this  objective,  this  thesis  provides  a  database  management  system  for  the  manager  who 
works  at  the  division  logistics  section,  and  for  the  Quartermaster  battalion  which  is  the 
major  unit  to  handle  material  within  the  division. 

To  meet  the  objective,  the  author  of  this  thesis  concentrated  on  writing  user 
friendly  interface  programs  within  the  current  logistics  management  system. 

By  applying  the  proposed  system,  the  Army  can  improve  one  of  its  logistics 
objective,  ie  automatic  data  processing.  This  can  contribute  to  the  logistics 
management  system  implementation  by  allowing  the  division  to  generate  more  accurate 
reports  in  less  time,  and  to  improve  inventory  management  by  shortening  the 
administrative  process. 
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I.  INTRODUCTION 

A.       INTRODUCTION 

This  thesis  proposes  an  inventon-  control  database  management  system  for  use  at 
the   ROK  Army  division. 

Supply  functions  are  critical  in  achievement  of  economic  operations  of  armed 
forces,  and  the  management  of  defense  resouces.  Republic  of  Korea  (ROK)  Army 
logisticians  have  developed  better  ways  to  build  support  process.  One  improvement  is 
the  recent  computerization  of  Planning-Programming-Budgeting-Executing-Evaluating- 
System  (PPBEES)^  at  high  level  command  (above  division). 

However,  implementation  of  PPBEES  below  the  division  level  requires  a  great 
deal  of  manual  paperwork,  and  much  overtime  for  lower  level  managers. 

Fortunately,  as  of  last  year,  the  Army  divisions  have  acquired  computer 
hardware.  Still,  some  usage  difTiculties  remaine  because  of  shortages  of  the  computer- 
related  personnel.  Thus  the  development  of  well  structured,  user  friendly  computer 
systems  is  urgently  needed. 

This  thesis  will  introduce  a  logistics  database  system  which  will  reduce  the 
amount  of  paperwork,  decrease  order  processing  response  time  and  generate  statistics 
which  are  now  too  cumbersome  to  compute.  The  system  must  be  well  structured  and 
user  friendly  for  easy  implementation  by  novice  users. 

Therefore  this  thesis  will  deal  with  the  application  of  computer  based  routine 
transactions,  generation  of  reports,  and  analysis  of  transactions  for  the  ROK  Army 
division  logistics  management  section. 

The  software  developed  for  this  thesis  is  microcomputer  based  because  of  price 
and  availabiUty  to  the  Korea  Army,  especially  at  the  division  level  and  below.  The 
software  performs  the  supply  distribution  function,  which  is  the  most  costly  and  labor 
consuming  phase  at  the  operational  level. 

It  handles  authorized  storage  list  (ASL)  as  well  as  property  items,  to  be  defmed 
at  chapter  II.  The  fixed  order  quantity  with  probabilistic  demand  model  will  be 
apphed  for  inventory  control. 


' PPBEES  is  a  newly  developed  system  for  the  national  resource  management  in 
Korea.  The  objective  is  to  accomplish  the  economic  management  of  the  Army  by 
evaluation  of  managers  with  budget  expended  and  the  designated  material  readiness 
condition. 
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B.       THESIS  ORGANIZATION 

The  thesis  is  divided  into  the  following  sections:  As  the  background  of  the  thesis, 
the  second  chapter  covers  the  current  ROK  Army  logistics  structure,  supply  functions, 
and  current  computers  in  the  Korean  Army. 

The  third  chapter  describes  the  structure  and  the  capability  of  the  proposed 
system  and  its  benefits. 

Future  research  needs  will  be  stated  in  the  concluding  chapter.  Appendices 
include  statistical  considerations  for  inventory  control  measures  in  Appendix  A,  data 
structure  of  the  proposed  system  in  Appendix  B,  the  proposed  system  structure  in 
Appendix  C.  The  user's  manual  is  provided  in  Appendix  D,  and  program  listings  and 
menu  screen  formats  are  in  Appendix  E  and  F. 
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II.  ARMY  LOGISTICS  STRUCTURE  AND  ADPS  IN  THE  KOREA  ARMY 

A.       ARMY  LOGISTICS  STRUCTURE 

1.  Overview 

The  Korea  Army  is  the  largest  of  the  three  armed  forces  and  is  responsible  for 
providing  general-purpose  forces  to  meet  any  threat  to  the  Korean  national  security.  In 
order  for  the  Army  to  carry  out  its  mission,  it  has  to  insure  an  uninterrupted  supply  of 
weapons,  equipment,  supplies  and  other  items  to  the  combat  forces. 

The  Army  logistic  unit  was  established  to  enhance  national  security  by 
providing  a  reUable  and  supportable  supply  of  equipment  and  other  necessar\'  items  to 
the  various  army  units. 

To  achieve  its  objective,  the  logistic  unit  has  adopted  the  following  principals; 

•  Logistics  intelligence;  Commander  must  have  accurate  and  timely  logistics 
information  in  order  to  provide  elTective  logistics  support. 

•  Objective;  Logistics  endeavors  must  be  directed  toward  a  clear  and  attainable 
objective. 

•  Generative  logistics;  The  professional  application  of  initiative,  knowledge,  and 
ingenuity,  and  innovative  exploration  of  technical  and  scientific  advances  are 
fundamental  to  the  generation  of  logistics  systems  improvements. 

•  Interdependence;  Logistics  system  efficiency  requires  integration  with  other 
functions  of  the  system. 

•  Simplicity;  Simplicity  is  essential  at  all  levels  of  the  logistics  system. 

•  Timeliness;  Logistics  support  must  be  provided  in  the  right  quantity  at  the 
proper  time  and  place  for  accomplishment  of  the  mission. 

•  Impetus;  The  impetus  of  logistics  support  is  forward  to  support  the  combat 
mission. 

•  Cost-effectiveness;  EfTicient  management  of  resources  is  essential. 

•  Security;  Security  must  be  maintained  to  preserve  resources  and  ensure 
sustained  combat  capability  [Ref  1:  p.  34) 

2.  The  Army  Logistics  Unit  Organization 

The  Army  logistics  unit  is  organized  into  three  levels,  each  responsible  for 
certain  functions.  The  next  two  sections  will  outline  the  organizational  structure  and 
the  functions  of  the  logistics  units. 
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a.  Organizational  Structure 

The  organizational  structure  is  divided  into  three  levels.  The  top  level  is 
the  wholesale  echelon  which  includes  depots,  maintenance  points,  plants  and  factories 
associated  with  special  army  activities  controlled  by  the  Army  headquarters.  The 
intermediate  echelon,  i.e.  retail  sale  echelon,  is  the  next  level  and  serves  as  an  interface 
between  the  top  level  and  the  direct  support  and  use  echelon.  It  is  responsible  for 
providing  general  support  function.  The  third  and  final  level  is  the  direct  support  and 
user  echelon  which  includes  field  units  and  provides  direct  support  functions  to  the 
various  units  in  the  field. 

b.  Support  Functions 

Logistics  Units  perform  the  following  functions 

•  Supply;  which  includes  procurement,  distribution,  maintenance  while  in  storage, 
and  salvage  of  all  commodities  necessary  to  equip,  maintain  and  operate  the 
armed  forces. 

•  Maintenance;  which  focuses  on  repair  and  restoration  of  fielded  weapons  and 
equipment  systems.  Maintenance  is  classilied  into  three  level,  i.e.  unit,  field  and 
depot. 

•  Transportation  of  troops  and  supplies. 

•  Services;  including  food  stores,  clothes  stores,  laundry,  grave  services,  fire 
fighting,  etc. 

•  Facilities;  including  real  properties  such  as  depot,  maintenance  factories,  and 
barracks,  etc. 

3.  Management  Issues 

Four  managerial  issues  were  identified  by  the  Korean  Army  Logistics 
Command  as  critical  to  the  performance  and  execution  of  the  logistics  tasks.  These 
elements  are; 

•  Highly  reliable  communications  between  the  logistics  units. 

•  Retention  of  sufficient  defense  resources. 

•  High  speed  movement  of  combat  support  supplies. 

•  Utilization  of  automatic  data  processing  systems  in  order  to  effectively  manage 
the  process.   [Ref.  2:  p.  636] 

This  thesis  is  an  effort  to  support  the  four  elements,  i.e.    the  use  of  data 

processing   in  developing   a   system   to   improve   the   retention   of  sufficient   defense 

resources;    to    reduce    communication    complexity   and    paperwork;    to    decrease    the 

response    time   for   requests;    and   to   allow   management   more   time   for   important 

decisions. 
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The  next  sections  outline  a  specific  management  problem  follwed  by,  in  later 
chapters,  a  proposed  implementation  of  a  computerized  information  system,  within  tlie 
constraints  of  the  Korean  data  processing  environment  system. 

B.       SELECTIVE  MANAGEMENT 

1.  Oven  lew 

Material  management  involves  thousands  of  individual  transactions  each  year. 
To  do  their  job  effectively,  material  managers  must  be  able  to  efTectively  use  their  time, 
concentrate  on  critical  items  and  avoid  the  distraction  of  less  critical  details. 

In  reality,  it  is  dilficult  to  achieve  this  without  the  following  prerequisites; 

•  A  classification  system  to  identify  critical  items. 

•  Well  established  and  structured  procedures  to  deal  with  those  items  that  are 
considered  less  critical. 

•  A  computer  system  which  assists  managers  in  carr\ing  out  the  less  critical 
activities  and  which  can  identify  changes  that  may  effect  an  activity 
classification. 

The  Logistics  unit  has  adopted  a  classification  system  which  satisfies  the  first 

prerequisite  above,  i.e.  inventory  control  procedures  that  isolate  those  items  requiring 

precise  control  from  those  items  that  do  not. 

2.  The  ABC  Classification  system 

This  system  is  based  on  the  fact  that  only  a  small  percentage  of  inventory 
items  account  for  most  of  the  total  inventory  value.  Thus  considering  the  cost  of 
management  time,  it  is  more  cost  effective  to  purchase  a  sufficient  supply  of  low  cost, 
low  demand  items  and  maintain  Uttle  control  over  them. 

Before  discussing  the  classification  system,  it  must  be  stated  that  before  an 
item  is  given  low  priority  classification,  it  is  evaluated  by  the  Army  to  determine  how 
critical  it  is  for  combat.  If  it  was  classified  as  combat  critical,  it  must  be  treated  like 
high  priority  item  even  if  its  demand  classification  is  still  low  one.  Thus  a  low  priority 
item  has  to  satisfy  two  criteria;  an  item  shortage  will  not  disrupt  the  combat  operations 
and  its  annual  demand  in  terms  of  must  be  low. 

The  selective  management,  more  commonly  known  as  the  ABC  system,  was 
adopted  by  the  Korean  Army  to  meet  these  supply  function  considerations  in  material 
handling.  Each  item  is  given  one  of  three  classifications,  i.e.  A,  B  or  C  (see  Figure  2.1). 
Class  A  consists  of  items  whose  dollar  value  of  total  annual  demand  typically  accounts 
for  50°  b  of  the  total  dollar  value  of  the  inventory,  while  representing  only  7%  of  the 
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number  of  inventory  items.  The  B  class  consists  of  18%  with  35%  of  inventory  items. 
The  C  class  consists  of  items  whose  annual  dollar  value  accounts  for  only  15%  of  the 
total  dollar  value  of  the  inventory  but  represents  65%  of  the  inventory  items. 


Annual  demand  category  $ 


Degree  of  management 


\                           Very  high 

A 

Most  intense                         / 

\ 

/a\ 

50%                               / 

\                        High 

/    7%   \ 

Intense                     / 

\                over  5,000 

/                     \ 

/ 

\                Medium              It 

^           B           ^ 

\          Less  intense            / 

\         1,000-5,000       / 

18% 

\            ^^"^              / 

\             / 

\          Low         1/ 

Vv          Simpli-          / 
\         fied            / 

\         1 ,000       / 
\        less        / 

c 

\       ^^'^      / 

75% 


Number  of  Items 

Figure  2.1     ABC  Classification. 

The  entire  inventory  is  listed  in  descending  order  from  the  largest  value  of  the 
annual  demand  to  the  smallest  and  break  points  are  between  class  A  and  B  and 
between  class  B  and  C. 

The  ABC  classification  exists  to  direct  attention  to  those  inventory  items  that 

represent  the  largest  annual  expenditures.    If  inventory  levels  can  be  reduced  for  class 

A  items,  a  significant  reduction  in  inventory  investment  will  result. 

"The  purpose  of  classifying  items  into  groups  is  to  establish  appropriate  levels  of  control 
over  each  item.  ABC  analysis  is  useful  for  any  type  of  independent  demand  system 
{continuous  review  periodic  review,  and  so  forth).  With  the  periodic  system,  the  ABC 
analysis  can  be  subdivided  so  high  usage  items  receive  a  short  review  and  low  usage  items 
receive  a  much  longer  review." 
[Ref.  3:  p.4391       * 

As  previously  mentioned  the  degree  of  control  is  classification  dependent,  thus 
class  A  items  require  and  are  given  the  greatest  attention  while  the  class  C  items  are 
paid  the  least  attention.  Class  A  items  are  managed  using  an  economic  order  quantity 
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model,  A  review  of  the  inventor\'  position  would  occur  each  time  an  item  is  issued  to  a 
customer.  Class  B  items  could  use  an  economic  order  quantity  (EOQ)  based 
requisitioning  objective.  Class  C  items  require  no  special  calculations,  since  they 
represent  a  low  inventor>'  investment.  The  order  quantity  might  be  a  one  year  supply 
with  a  annual  review  of  the  inventor\-  position. 

The  success  of  the  ABC  system  is  dependent  on  several  factors,  among  them  is 
the  validity  of  the  assumption  that  class  A  items  constitute  a  small  percentage,  7°o,  of 
the  total  Items  and  around  50"  o  of  the  total  cost.  Figure  2.1  depicts  the  distribution  of 
the  cost  and  quantity  for  the  mventor>'  in  the  Korean  army. 

The  system  proposed  in  this  thesis  applies  continuous  review  on  class  A  and 
some  of  class  B  items,  which  are  included  in  the  authorized  storage  list  (ASL).  ASL 
will  be  discussed  in  section  three  inventor}'  control  means. 

C.       THE  EXISTING  SYSTEM 

1.  The  Planning-Programming-Executing-Evaluating  System  (PPBEES) 

The  Planning-Programing-Budgeting-Execution-Evaluation  System  (PPBEES) 
is  a  newly  developed  system  for  the  national  resource  management  in  Korea.  It 
evaluates  managers  based  on  their  budget  expenditure  and  their  material  readiness 
condition. 

A  number  of  plans  were  developed  to  implement  this  system.  For  instance 
Accounting  System  for  Fund,  and  Fund  Management  Comparison  and  Evaluation 
System.  "  they  had  less  success  than  originally  envisioned.  It  is  my  opinion  that  the 
elTectiveness  of  the  system  can  be  increased  by  widing  its  implementation  to  include 
A\rmy  divisions  and  by  establishing  a  vehicle  for  division  managers  to  easily  obtain 
accurate  information  needed  in  managing  inventory.  At  the  present  time  performance 
and  operating  statistics  must  be  manually  prepared,  which  is  a  time  consuming  process 
normally  avioded  by  managers.  The  proposed  system  allows  managers  to  acquire  the 
needed  information  in  a  timely  fashion  and  to  support  both  planning  and  internal 
perfomance  audits. 

The  PPBEES  measures  performance  based  on  a  subset  of  the  supplied  items. 
The  following  sections  outline  the  division  supply  system  and  the  items  included  in  the 
PPBEES  svstem. 


^These  two  names  are  literally  translated  from  Korean. 
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2.  Resource  flow  in  the  infantry  division 

The  resources  (or  fund)  flow  in  the  division  is  divided  into  two  major 
categories,  materials  and  cash.  The  materials  are  about  55"  o  of  total  value,  and  are  the 
subject  of  the  proposed  computer  system  in  this  thesis,  while  the  remaining  45%  is 
cash. 

The  materials  issued  to  the  division  are  divided  into  three  groups  resource 
control  number  (RCN),^  automated  supply  items,  and  non  monetary  valued  items,  see 
Table  1 

TABLE  1 
BUDGET  RATE  OF  MATERIALS 


Item 

Contents 

Percent 

Total 

Line  item 

PPBEES  Materials 

Parts,  Gasoline, 
Medical  Equipment, 
General  Supply 

15 

30 

^Automated  Issue 
Items 

Food.  Clothine,  Heatimi  Fuels. 
Tactical  Constl-uction  Materials, 
Ammunition,  Assemblies.  End  items 

40 

70 

Non  Monetary 
Valued  Items 

Clothin2(Ofricer.NCO) 

Field  manual.  Technical  manual 

Target 

Un- 
known 

Un- 
known 

The  RCN  grouped  material  constitutes  around  \5.3%  of  the  resources,  i.e. 
30%  of  material,  and  are  issued  by  the  Logistics  Support  Command  with  RCN.  These 
are  the  only  items  tracked  by  the  PPBEES  system  and  used  in  evaluating  managers' 
perfromance. 

The  remaining  materials,  40%  of  the  budget,  are  issued  automatically  without 
user's  request.  We  can  anticipate  that  this  results  in  excess  stock  in  some  units  while 
the  other  unit  run  out.  The  division  has  no  evaluation  system  for  these  automated 
issued  line  items.   [Ref  4:  pp.  194- 196] 


RCN  (Resource  Control  Number)  is  the  numeric  symbol  which  is  used  for 
accounting,  execution  of  supply  activities,  that  connects  the  cash  budget  and  material 
supply. 
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The  division  has  only  basic  manual  means  for  recording  material  consumption. 
The  inventory  report  card  contams  only  the  present  amount  of  stock  for  each  item  in 
the  organization  unit.  The  division  should  have  a  system  to  record  material 
consumption  and  evaluate  support  performance. 

In  the  present  PPBEES  there  are  no  means  to  evaluate  the  ranking  of  the 
units  in  a  given  period,  as  well  as  a  number  of  other  problems  which  make  an 
automatized  system  highly  desirable.    For  example; 

•  For  certain  items,  the  logistics  support  command  sets  a  ceiling  (maximum 
allowance)  on  the  number  of  units  of  the  item  which  may  be  consumed  by  a 
division  each  calendar  year.  The  performance  of  the  division  with  respect  to 
this  item  is  judged  based  upon  the  fraction  of  the  maximum  allowance  which  is 
actually  used  during  the  year.  Obviously  divisions  with  larger  maximum 
allowances  use  items  more  freely  ,  while  divisions  with  smaller  maximum 
allowance  may  suffer  from  lack  of  material.  This  may  induce  a  division 
commander  to  delay  the  maintenance  of  equipment,  to  continue  to  use 
substandard  material,  and  to  occasionally  make  inappropriate  substitutions. 

•  There  are  too  many  elements  to  compare.  For  each  RCN  item  there  are  20 
criteria  used  in  the  evaluation.  Each  division  has  20  units  and  each  regiment  has 
23  companies.  Division  managers  do  not  have  the  required  resources  to  do  this 
comparison  manually. 

•  The  system  requires  too  much  paperwork.  Meadquarters  must  calculate  costs  by 
equipment  and  by  subordinate  units.  Both  are  difficult  manual  efforts  which 
may  include  significant  errors. 

3.  Inventory  operation  and  control  in  divisions 

The  supply  procedure  in  divisions  is  shown  in  figure  2.2  The  principal  actions 
between  suppher  and  customers  are;  requests  for  issue;  turn-ins;  and  cancellations. 
These  actions  take  place  between  a  unit  and  a  division  and  between  a  division  and  the 
logistics  support  command.  For  example  when  a  company  sends  a  "request  for  issue" 
to  a  regiment,  the  regiment  passes  it  to  division.  The  division  issues  the  item  if  it  is  on 
hand;  if  not,  a  request  is  sent  by  division  to  the  logistic  support  command.  The 
logistics  support  command  processes  the  requisition  through  their  computer  system, 
and  generates  an  issue  list  containing  all  the  items  requested  by  the  division.  After  the 
division  receives  the  list  and  material,  all  due-outs  to  division  customers  are  filed  and 
the  remaining  material  is  stored  pending  the  next  request.  All  requests  for  issues  from 
lower  units  are  handled  daily,  The  proposed  system  follows  this  basic  procedure. 

The  control  measures  in  these  procedures  are  the  authorized  storage  list 
(ASL),  requisition  objective  (RO),  safety  level  (SL),  and  order  shipping  time  (OST). 
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A.  Supply  procedure  fromdivision 


(jj)  Request  for  issue  or  cancel 

©Receive  from  Logistics 
support   command 

©Turnin  to  Joqistics  support 
commancf 


flj  Request  for  issue  or  cancel 
(4)  issue  to  organization 
(6)  Turnin  from  organization 


B.  Current  Transaction  record  procedure 


Company 


Regiment 


Division 


Logistics  support  comd 


C       Telephone      Y 


Property  book 


Transaction 
list  #1 


list  #2 


1 


Transaction 
Record  book 


I 


Transaction 
list  #2 


•4- 
■4- 


Property  book 


Issue  and  voucher 
list 


Transaction 
list  #1 


Request  for  issue 


Integrated 

voucher 

records 


Stock  accounting 
record 


i^ i- 


Fund  accounting 
record 


Fi^re  2.2  Division  Supply  Procedure 
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a.   Authorized  Storage  List  (ASL) 

Authorized  storage  list  defines  all  supplies  which  can  be  stored  by  the 
supply  unit  to  meet  expected  demand.  This  is  based  on  selective  management  similar 
to  the  ABC  classification.  The  ASL  considers  economic  and  support  performance 
objectives.  If  support  performance  was  the  only  consideration,  all  items  will  be  stored. 
This  obviously  would  be  very  costly,  would  increase  the  difficulty  handling  the  material 
and  decrease  the  maneuverability  of  the  unit.  On  the  other  hand  if  we  consider  only 
economics  the  unit  performance  would  be  degraded  and  there  would  be  a  serious 
increase  in  unnessary  stock.  Therefore  the  stock  should  be  the  minimum  required  to 
perform  the  mission. 

To  get  the  minimum  required  stock,  we  have  to  consider  measures  of 
effectiveness  (.VIOEs):  Let's  assume  that  total  cost=  f(x)  and  support  performance  = 
g(x).  We  have  to  minimize  fijx)  and  maximize  g(x),  but  as  x  increases  both  f(x)  and  g(x) 
increase.    There  is  conflict  !    So  what  is  usually  done  is: 

1.  Choose  a  specific  minimum  value  for  g(x),  ie  g(x)  must  be  greater  than  this 
value  (call  it  "b '). 

2.  Minimize  f(x)  subject  to  gi    •>  b. 

A  ranking  similar  to  the  ABC  system  was  developed  for  the  demand 
frequency  of  each  item.  As  shown  in  Table  2  --(A)  ,  85%  of  total  demand  frequency 
includes  only  IS^/'o  of  all  items  required  by  t!^e  supported  unit;  even  if  we  increase  this 
latter  percentage  to  50%  and  reexamine  the  associated  fraction  of  total  demand 
frequency,  the  increase  of  demand  frequency  is  only  3-4v'o. 

This  fact  suggests  that  by  storing  15-20%  of  all  items  it  is  possible  to  meet 
85° 0  of  the  support  requirement.  This  is  the  basis  of  ASL,  ie  satisfying  85%  of  all 
requisitions.  The  achieved  DFR  is  the  ratio  of  demand  for  ASL  items  to  the  total 
effective  demand.  Total  effective  demand  is  the  demand  of  all  items  less  cancellations. 

ASL  is  divided  into  6  groups:  active  items,  stand-by  and  essential  items. 

Prescribed  Load  List  (PLL)  of  Organization  Unit,  the  supported  units  ASL,  direct 

exchange  and  repair  parts  for  new  equipment,  and  substitution  of  maintenance. 

The  active  items  are  the  items  included  in  85°  o  of  the  demand  frequency  rate. 

Essential  items  for  any  future  emergency  are  decided  by  the  Army  Commander. 

Prescribed  load  list  of  organization  unit  are  repair  parts  and  tools  intended  to 
give  worth  of  support  15  days  and  must  be  stored  in  each  organization. 

When  two  or  more  items  have  functional  and  physical  characteristics  that  cause 
them  to  be  equivalent  in  performance,  reliability  and  maintainabiUty,  only  one 
of  the  items  will  be  on  the  ASL 
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TABLE  2 


A).  DEMAND  FREQUENCY  RATE 

Demand  frequency  rate  (%) 


100 


85 


50 


ASL 


B 


. :  Demand  frequency 

:Annual  dollar 
value 


^  7         15  25 

ITEMS  NUMBER(%) 

B).  AUTHORIZED  STORAGE  LIST 


100 


ASL  Items 


Non  ASL  Items 


Total  Annual  effective  demand 


Immediate  issue 


Delayed  issue 


85% 


'I 


Demand  flexibility  rate  =  (ASL -r  Total  effective  demand)  x  100 


C).  ANNUAL  DEMAND  FREQUENCY  FOR  ASL 


Chemical  Items 

6times 

Quatermaster  Items 

6times 

Engineer  Items 

3times 

Communication  Items 

3times 

Ordnance  Items 

6times 

Transportation  Items 

6times 

Medical  items 

6times 
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When  stock  changes  or  when  catalog  data  are  updated,  all  additions  or 
deletions  are  made  in  the  ASL.  Other  changes  include  inter-changability  and 
substitution  between  items.  The  deputy  chief  of  stafT  logistics  (DCoSLOG)  in  the 
Army  HQ  reviews  the  ASL  semiannually  for  potential  range  reductions.  Inclusion  on 
the  ASL  depends  on  the  minimum  number  of  times  an  item  is  ordered  as  shown  in 
Table  2-C, 

b.   Requisition  Objective  (RO) 

Each  ASL  item  must  have  an  RO  recorded  in  the  stock  accounting  record. 
The  RO  is  the  maximum  quantity  of  the  item  authorized  to  be  on  hand  and  on  order 
at  any  time.  Retention  of  assets  above  the  RO  is  authorized  under  certain  conditions. 
The  RO  computations  are  made  in  a  days  of  supply  (DOSs)  mode  or  economic  order 
quantity  (EOQ)  mode. 

(1)  Days  of  Supply  (DOS).  The  DOS  mode  will  be  used  by  nonautomated 
accounts  when  computing  stock  for  items  that  are  critically  short,  seasonal,  highly 
perishable,  or  have  a  shelf  life  of  less  than  3  years.  A  DOS  RO  will  be  computed  at 
least  semiannually,  or  when  the  balance  on  hand  is  equal  to  or  less  than  the  reorder 
point  (ROP),  or  when  the  balance  on  hand  equals  zero. 

The  DOS  RO  is  the  sum  of  the  operating  level  (OL),  safety  level  (SL), 
and  order  shipping  time  (OST)  in  days;  multipUed  by  the  quantity  demanded  during  the 
control  period  (one  year  for  division),  divided  by  the  number  of  days  in  the  control 
period.  The  ROP  is  the  sum  of  the  SL  and  OST  in  days,  multiplied  by  the  quantity 
demanded  during  the  control  period  divided  by  the  numbers  o[  days  in  the  control 
period. 

(2)  Economic  order  quantity  {EOQ).  The  EOQ  RO  is  the  sum  of  the  EOQ 
and  the  ROP  quantities  w^hich  will  minimize  the  total  variable  cost  of  stock  for  a 
specified  performance  goal.  The  performance  goal  is  based  on  how  essential  the  item 
is.  The  amount  of  stock  may  be  constrained  by  mobility  and  fiscal  limitations.  The 
total  variable  cost  consists  of  order  cost  (replenishment  and  wash  actions),  change  cost 
(cost  to  add  and  delete  an  item),  cost  to  maintain  an  item  in  stock,  storage  holding 
cost,  and  the  implied  shortage  cost.  The  implied  shortage  cost  is  not  a  measurable  cost 
(to  calculate  this  cost  refer  to  the  Appendi.x  A  statistical  consideration.) 

The  imphed  shortage  cost  will  be  used  in  automated  systems  as  a 
variable  to  adjust  a  stock  level  to  meet  a  specified  performance  goal.  Stock  criteria  will 
be  variable  when  the  EOQ  is  used  by  automated  systems.  The  EOQ  mode  will  be  used 
by  automated  accounts  (higher  than  division  level  so  far). 
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c.   Order  shipping  time  (OS T) 

OST  is  used  computing  both  EOQ  and  DOS.  It  is  the  average  number  of 
days  that  elapse  between  the  document  date  of  the  requisition  and  the  date  the  receipt 
is  posted  to  the  slock  accounting  record. 

When  OST  is  not  available,  as  in  the  case  of  the  manual  system  used  in 
DOS.  it  has  to  be  computed.  The  computation  is  based  on  the  average  OST  of  the  six 
most  recent  replenishment  receipts  and  rounded  to  the  ne.xt  higher  number  of  whole 
days.  In  computing  OST,  requisitions  are  excluded  if  they  have  long  delays  from 
wholesale  backorder,  unusual  circumstances,  or  lack  of  funds.  A  cumbersome  manual 
process! 

OST  is  updated  each  time  the  RO  is  recomputed.  Because  of  the  fact  that 
most  of  the  system  is  manual,  updates  to  the  OST  is  done  annually. 
4.  Current  documentation  and  report  forms 

The  documents  maintained  by  division  logistics  departments  are  classified  by 
contents  and  include; 

•  Inventory  status  for  each  item 

•  Evaluation  worksheet  for  the  PPBEES 

•  Documents  for  TA .VIMS'* 

•  The  record  of  consumable  item  consumption 

These  report  mainly  focus  on  the  historic  data  and  are  difTicult  to  use  in 
computing  statistics  and  information  needed  by  managers.  For  example  the  current 
documentation  is  inadequate  to  use  in  material  planning.  Although  it  shows  the 
current  stock  level  of  items,  funds,  etc.  This  data  can  not  be  used  by  a  computer  and  is 
difficult  to  retrieve,  sort  or  manually  manipulate  to  calculate  the  needed  information. 

The  format  of  the  recording  form  is  inconvenient.  The  documents  or  forms 
should  be  able  to  prove  the  transaction  history  and  also  be  user  friendly.  In  the 
current  documents,  transactions  are  recorded  by  date  sequence,  when  any  cancellation 
of  requisition  occurs,  it  is  very  difficult  to  locate  and  correct  all  previous  records. 
Records  written  in  pencil  are  hard  to  use  as  vouchers. 


"^TAMMS  is  a  abbreviation  of  The  Army  Maintenance  Management  System 
which  contains  the  historic  records  of  maintenance,  and  operation  of  all  equipment. 
This  data  will  be  used  in  requisitioning  of  the  new  equipment  requisition. 
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D.      CURRENT  USE  OF  COMPUTERS  FOR  LOGISTICS  IN  ROK  ARMY 
I.  Overview 

In  March,  1967  the  first  computer  was  introduced  in  Korea  to  assist  with  a 
census  of  the  Korean  population  for  the  Economic  Planning  Board.  The  Korean  Army 
installed  its  first  computer  system  in  the  Army  HQ  for  the  management  of  military 
personnel  in  1972.  The  next  year  another  computer  was  installed  at  the  Logistics 
Command  to  assist  with  logistics  management.  Subsequently  several  computer  centers 
were  established.  All  these  computer  centers  are  directly  controlled  by  the  staff  of  the 
Army  HQ.   [Ref  5:  p.  14] 


Field  Anny 

Logistics  Command 

Corp<; 

Logistics  Sunnnrt 

/ 

Commant 

_,,... 

Main  frame 


Main  frame 


Main  frame 


Division 


Mini  computer 


Figure  2.3    Army  Logistics  Computer  System. 

In  the  late  of  70's,  an  integrated  software  development  center  was  established 
at  the  Central  Automatic  Data  Processing  Center  (ADPC)  to  develop  software  for  the 
mainframe  computer  used  by  the  logistics  command  and  Army  HQ.  The  second 
center,  the  Logistics  Management  Information  Center,  was  established  to  support  MIS 
development  activities  in  the  G-4  of  the  Army.  It  endeavors  to  improve  MIS 
capability  and  has  gained  the  attention  of  high  level  managers. 

The  hardware  installed  in  the  various  computer  centers  is  different.  IBM  370, 
and  UNI  VAC  90/30  and  1100  series  machines  are  very  common.  These  are  batch 
system  and  are  not  connected  with  each  other.  The  application  software,  which  is  run 
periodically  by  users,  was  developed  using  old  technology,  i.e.  flat  file  system. 
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The  file  system  and  the  fact  that  the  computers  are  not  connected  results  in  a 
high  degree  of  redundancy.  Each  computer  center,  even  those  under  the  control  of  the 
Department  of  Computers  at  Army  HQ.  has  several  files  contaming  the  same  data 
elements.  For  e.xample  the  Army  personnel  system,  payroll  system,  and  medical  system 
all  contam  common  data  elements  which  are  updated  independently,  a  potential  source 
of  data  integrity. 

A  second  problem  which  has  affected  the  development  of  the  data  processing 
field  in  the  army  is  a  shortage  of  qualified  personal. 

Recently,  high  level  managers  have  recognized  the  need  for  the 
standardization  of  hardware  and  unification  of  application  software.  This  has  resulted 
in  an  ongoing  eiTort  to  bring  the  data  processing  systems  in  Korea  to  the  leading  edge 
of  technology.  As  a  result,  a  number  of  mini-  and  microcomputers  have  been  installed 
at  the  division  level. 

2.  ADP  Support  to  logistics 

It  is  necessary  for  the  commanders  to  have  adequate  forecasting  capability  for 
the  effective  command  and  control  his  unit.  The  use  of  ADP  systems  has  significantly 
increased  the  commanders  visibility  and  has  had  an  efiect  on  logistics  operations.  The 
Automatic  Data  Processing  Center  (ADPC)  within  the  logistics  structure  has  provided 
significant  support.  The  ADPC,  dedicated  to  logistics  operations,  supports  its  own 
internal  functions  such  as  stock,  control  within  the  responsible  area  and  routine  jobs 
such  as  reports  generation  for  higher  commands.  Additionally  the  center  provides  to 
other  departments  the  logistics  information.  In  the  division  level,  reports  are  manually 
generated. 

One  concern  of  this  thesis  is  an  important  report  generating  function  of 
ADPC;  the  inventor>'  status  report.  This  report  is  presently  created  by  division  G-4  for 
logistics  support  command  mannually. 

This  reporting  system  will  be  designed  in  this  thesis  to  provide  up-to-date 
accurate  inventor\'  status  data  for  major  items  pertaining  to  each  division.  In  addition 
to  the  inventory  status  report  there  are  many  other  reports  which  are  needed  to  control 
the  inventory.  These  reports  provide  information  to  the  division  commander  and  higher 
logistics  support  units  so  that  readiness  can  be  evaluated.  These  reports  also  indicate 
the  shortage  and  overage  of  material  and,  when  integrated  at  higher  levels,  allow  the 
command  to  determine  new  procurement  needs,  prepare  budgets,  redistribute  assets 
and  take  disposal  actions. 
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E.       SUMMARY 

This  chapter  presented  a  description  of  the  existing  inventor^'  control  system  and 
data  processing  capabilities.  Several  issues,  stated  in  this  chapter,  were  paramount  m 
the  decision  to  develop  the  proposed  inventorv'  control  system.  For  example; 

•  The   existing   system   has   limited   capability   in   the   development   of  eiTective 
material  management. 

•  The  PPBEES  implementation  will  benefit  from  a  computerized  Management 
Information  System. 

•  The  documentation  in  the  present  system  is  cumbersome  and  inadequate  for 
managers. 

A  database  management  system  can  be  used  to  resolve  these  problems.  A  well 
developed  one  will  provide  the  information  needed,  maintain  records  of  transactions 
and  exchange  the  information  with  other  computers. 

This  system  has  to  be  user  friendly  and  reduce  to  an  acceptable  minimum  the 
dependency  on  the  data  processing  personnel.  Its  implementation,  including 
installation,  must  be  simple  and  must  use  the  microcomputers  available  in  the  various 
units. 

The  problem  the  system  resolves  is  well  structured  to  insure  the  system's  success. 
At  the  same  time  the  system  design  has  a  degree  of  flexibility  to  expand  at  a  later 
point.  The  existing  system  is  labour  intensive  and  the  proposed  system  will  sa\e 
managers  precious  time  for  more  important  activities. 

The  system  described  in  this  thesis  was  designed  with  these  facts  in  mind.  As  such 
it  resolves  a  problem  by  using  microcomputers,  and  a  user  friendly  interface,  and 
allows  for  electronic  communication  of  data. 
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HI.  RELATIONAL  DATABASE  MODELS 

A.  INTRODUCTION 

The  proposed  system  is  a  relational  database  management  system  which  uses 
dBASEIIIplus.  In  this  chapter,  a  brief  description  of  relational  database  models  is 
given. 

B.  WHAT  IS  DATABASE? 

A  Database  is  basically  a  computerized  record  keeping  system,  that  is,  a  system 
whose  overall  purpose  is  to  record  and  maintain  information  for  future  retrieval.  D.R. 
Howe,  the  author  of  Data  Analysis  for  Database  Design,  defined  a  database  as  "a 
collection  of  non-redundant  data  shareable  between  different  application  system" .  He 
extended  his  definition  by  saying  that  'non-redundant  means  unnecessarily  duplicated 
data  adds  no  new  information' ,  sharing  data  as  'a  multiple  usages  in  multiple 
applications' .    [Ref.  6:  P. I] 

A  database  should  be  structured  so  as  to  provide  a  foundation  for  future 
application  development.  It  can  be  manipulated  into  information  for  management 
purpose. 

A  database  model  is  an  abstract  representation  of  data.  It  defines  the  way  that 
data  items  are  organized  and  related.  There  are  two  major  classes  of  database 
representation,  the  physical  and  logical  models.  The  physical  model  represents  the 
actual  structure  of  the  data  in  the  computer.  The  logical  model  represents  how  a  user 
perceives  the  data  organization.  For  example,  in  an  inventory  system,  we  may  have 
the  following  case; 
A  number  of  parts  are  located  in  a  number  of  warehouses,   shown  on  Figure  &str-A. 

The  physical  structure  may  consists  of  the  following  files 

•  A  part  file  which  consists  of  the  part  number  and  all  the  attributes  which 
specifically  describe  this  part,  such  as  part  name,  price,  weight,  and  the  vendor 
supplying  this  part  (assuming  that  a  part  is  supplied  by  one  vendor  only),  etc. 

•  A  warehouse  file  which  consists  of  a  hst  of  ail  warehouses  and  those  attributes 
unique  to  each  warehouse. 

•  A  relationship  file  which  consists  of  the  attributes  that  describe  the  relationship 
between  parts  and  warehouses,  e.g.  number  of  units  of  part  1234  (QUANTITY) 
in  warehouse  A-12  and  location  of  the  part  in  this  warehouse  (bin  27AC) 
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B.  Manager's  View 


C.  Worker's  View 
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Figure  3.1     View  of  database. 

The  logical  structure  is  a  user  view,  and  as  such  it  is  dependent  on  the  user.  For  a 
warehouse  manager,  the  logical  view  may  be  similar  to  the  one  shown  in  Figure  3.1-B, 
ie.  the  warehouse  data  and  the  parts  available  in  that  warehouse  and  the  vendor  of 
each  part. 

A  second  user  view  may  be  that  of  a  worker  on  a  machine.  In  this  case  the 
person  is  interested  in  seeing  the  part  data  and  attributes  as  well  as  the  warehouses 
where  this  part  is.  He  is  not  interested  in  knowing  the  vendor  or  the  location  of  the 
part  in  a  warehouse. 

This  type  of  file  structure  facilitates  adding  new  views  based  on  user  requirements 
without  changing  the  physical  structure  of  the  files  and  reduce  the  number  of 
redundant  elements  and  the  update  effort.  Programs  share  the  data  instead  of  having 
the  same  data  duplicated  for  each  program,  creating  an  update  nightmare. 

The  database  management  system  is  responsible  for  managing  the  physical 
storage  of  data.  Thus  if  a  data  element  physical  characteristic  changes,  no 
programming  changes  are  required  since  each  program  requests  a  data  element  by 
name  and  is,  to  a  great  extent,  independent  of  the  element's  physical  characteristics. 
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C.       RELATIONAL  DATABASE  MODEL 

The  database  model  discussed  in  the  previous  example  is  called  the  Relational 

Model.    A  basic  quality  of  the  relational  model  is  its  simplicity. 

//  \vas  iniroduced  by  Dr.  E.  F.  Codd  in  a  seminar  paper  in  1970.  The  paper  have  been 
wniien  concerning:  'the  most  appropriate  way  to  express  relations.  He  stressed  the 
independence  of  the  relational  representation  from  physical  computer  implementation  such 
as  ordering  on  physical  devices,  indexing,  and  using  'physical  access  paths.  .Although  the 
relational  nvdel  has  many  desirable _  characteristics,  it  was,  until  recently,  a  subject  of 
theoretical  interest  only,  in  the  last  few  years  commercially  viable  database  mana^meht 
system  {DBMS)  became  available  and' in  the  early  lOSOs,  several  important  DBMS 
products  were _  introduced.  SOL  DS  {vended  by  'IB.M}  and  OR.ICLE  {vended  by 
Relational  software  IncorporaTed)  are  two  examples.  Since  these  announcement,  the 
relational  model  has  come  to  be  of  greater  practical  significance. 
[Ref.  7:  p.  242] 

The   following  definitions  introduce   a   number   of  terms   that  will   be   used   in 
describing  the  proposed  material  control  model. 

1.  Relation 

A  relation  is  a  table  of  data  (a  file)  and  consists  of  rows  (tuples)  and  columns 
(attributes).  The  data  table  provides  a  simple  data  structure. 


Attribute        Attribute 
i               i 
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Test  item2 
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90 
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Ea 

100 

25.00 

1 

ii444-<W-'+'+4-^4't 

Test  item^ 

Ea 

190 

<* 

-^ 

9999-99-999-9999 

Test  item** 

Ea 

9999 

100 

9 

Records 

Figure  3.2     Relation  of  property. 

Figure  3.2  shows  an  example  of  a  table  (or  relation);  the  table  contains  six  columns 
(each  represents  an  attribute)  and  five  rows  (tuple,  each  represents  a  specific  record). 
The  intersection  of  each  row  and  column  in  the  table  contains  a  value.  For  instance, 
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'Test  iteml'  is  an  attribute  value  of  the  attribute  type  "NM"  for  the  record  belonging  to 

stock  number  lHl-11-111-1111. 

There  are  a  number  of  constraints  that  must  be  observed  when  building  tables; 

•       The  ordering  o[  rows  is  not  important  because  the  rows  can  be  interchanged 
without  alTectins  the  information  content  of  the  table. 


The  ordering  of  columns  is  not  important  either,  for  the  same  reason. 

Each  row  and  column  intersection  contains  a  single  attribute  value.    Multiple 
values  are  not  allowed. 


•  Each  row  in  a  table  must  be  distinct;  no  two  rows  can  have  the  same  attribute 
values  throughout.  (The  significance  of  this  rule  is  that  a  row  can  always  be 
uniquely  identified  by  quoting  an  appropriate  combination  of  attribute  values.) 

An  attribute  value  may  be  null,  but  a  null  value  does  not  mean  that  the 
attribute  is  blank,  e.g.  the  unit  cost  of  test  item4  may  be  entered  in  the  table  after  the 
record  has  been  created. 

Each  attribute  has  a  domain,  a  set  of  values  that  the  attribute  can  have.  For 
example,  the  domain  of  unit  cost  is  a  positive  eight-digit  number  with  2  decimal  points. 

2.  Keys 

We  want  to  be  able  to  identify  each  tuple  (record)  in  a  relation  by  the  value  of 
at  least  one  of  its  attributes.  In  Figure  3.2,  the  stock  number  (SN)  is  a  unique 
identifier  since  no  other  row  may  have  the  same  stock  number. 

If  there  is  no  one  unique  attribute,  then  a  combination  of  more  than  one  may 
have  to  be  used.  The  table  data  structure  shown  in  Appendix  C  includes  examples  of 
keys  which  have  more  than  one  attribute. 

3.  Record  relationships 

The  essence  of  a  database  is  the  representation  of  record  relationships.  The 
relationships  can  be  specified  in  a  variety  of  ways. 

The  relationships  are  identified  intuitively.  The  designer  considers  potential 
relationship  among  records  that  have  been  defined.  A  relationships  may  exist  among 
three  or  four  or  more  records.  For  example  with  records  of  the  proposed  system, 
MASTER  records  have  many  property  records,  while  one  PROPERTY  record  has  only 
one  ASL  record.    Many  STOCK-OUT  records  have  many  MASTER  records. 

4.  Database  Management  System 

A  database  management  system  (DB.MS)  is  a  software  system  which  performs 
the  functions  of  defining,  creating,  revising,  and  controlling  the  database.  It  provides 
facilities  for  retrieving  data,  generating  reports,  revising  data  definitions,  updating  data, 
and  building  applications. 

33 


MASTER 

ASL 

STOCKOLT 

'.'. 

1 ' 

1 

I 

PROPERTY 

PROPERTY 

MASTER 

Figure  3.3     Record  relationship. 

Several  relational  DBMS  are  available.  The  one  used  in  developing  this 
inventory  control  system  is  Dbase  III  Plus.  The  version  used  is  the  Microcomputer 
version.  However,  an  extension  which  includes  SQL,  a  facility  which  allows  sharing  of 
data  with  mainframe  computers  is  under  development  and  will  be  introduced  in  the 
very  near  future. 

DbaselllPlus  is  the  market  leader  among  DBMSs  in  the  United  States. 
Several  supporting  products  have  been  introduced  such  as  compilers  to  increase 
execution  speed  and  application  generators  to  optimize  the  code  execution.  It  has 
network  capabilities  which  allow  sharing  of  data,  and  security  procedures  not  available 
in  the  single  user  version.  It  also  has  its  own  programming  language,  which  facilitates 
the  development  of  user  friendly  interfaces. 
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IV.  THE  PROPOSED  SYSTEM 

A.  OVERVIEW 

This  chapter  describes  the  existing  manual  procedures  and  the  proposed 
computerized  system. 

B.  MANUAL  SYSTEM 

Presently,  a  logistics  unit  in  a  division  receives  a  request  for  issue  of  an  item,  an 
item  turn-in.  or  cancellation  of  a  requested  item  from  lower  level  organizations.  The 
same  set  of  requests  occur  between  the  division  and  the  LSC.  Transactions  are 
recorded  in  properly  books  and  this  generates  a  second  type  of  process,  that  is  the 
editing  of  erroneous  entries. 

Transactions  are  aggregated  to  produce  management  reports,  which  are  used 
during  the  analysis  for  the  next  planning  cycle  and  for  evaluating  the  performance  of 
managers. 

Two  sets  of  books  exist,  the  first  book  is  the  transaction  log  in  which  records  of 
each  request  are  kept.  Each  entry  includes  the  transaction  number,  date,  item  ordered 
and  quantity.  The  second  set  is  the  property  book  which  has  a  page  for  each  stock 
number  and  the  on-hand  quantity  of  this  item.  When  a  request  is  satisfied,  both  sets  of 
books  are  updated. 

C.  THE  PROPOSED  SYSTEM  STRLfCTURE 

As  requests  arrive  at  the  division,  either  from  outside  entities  or  internal 
personnel,  the  end  user  enters  the  request  data  using  a  screen  identical  in  its  format  to 
the  request  form.  Entries  are  edited  by  the  system  for  errors  using  hard  coded  criteria, 
and  stored. 

The  system  consists  of  several  files  and  modules.  The  Batch  and  Master  files  are 
similar  in  structure  to  the  Transactions  Record  Book,  while  the  Property  File  and  the 
ASL  file  are  similar  to  the  Property  Book.  An  item  is  included  in  one  of  these  latter 
files  based  on  its  classification  and  whether  the  item  is  PPBEES  trackable  or  not.  The 
Stock  Out  file  combines  elements  from  both  books  and  the  Customer  file  contains 
customers  attributes  such  as  address,  customer  ID,  zipcode.  etc. 
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Modules  in  the  system  perform  several  functions.  For  example,  when  transactions 
are  processed  the  system  updates  the  quantity  on  hand,  creates  a  transaction  record, 
the  completion  date  of  a  transaction  is  generated  and  the  transaction  record  is  moved 
to  the  MASTER  file.  The  date  field  is  used  for  performance  measurement  purposes. 
For  example  the  date  field  will  help  answer  questions  about  turn  around  time  for  a 
specific  item. 

If  the  stock  on  hand  .J'ter  satisfying  the  current  demand  is  less  than  the  reorder 
point,  an  attribute  for  each  item,  the  stock  onhand  field,  is  updated  to  reflect  the 
current  onhand  amount  and  a  request  for  issue  to  the  supplier  will  be  generated 
automatically.  When  the  amount  is  less  than  zero,  a  stock-out  record  is  added  to  the 
STOCK-OUT  file,  and  the  system  sends  a  delivery'  delay  warning  to  the  user.  This 
process  is  illustrated  in  a  fiow  chart  in  Appendix  C. 

One  issue  list  per  customer  is  generated,  regardless  of  the  number  of  items 
requested  in  one  day.  under  one  receipt  voucher  number.  The  same  is  true  for  a  request 
for  issue  to  LSC.  Figure  4.1  shows  examples  of  the  issue  list  and  request  for  issue. 
The  processing  of  the  other  type  of  transactions  follows  almost  the  same  procedure. 

When  the  supplier  issues  stock  to  the  division,  the  stock  is  examined  to  determine 
whether  it  is  new,  i.e.  initial  supply,  and  if  it  is,  the  program  will  ask  the  user  to  enter  it 
in  the  property  file,  and  in  the  .ASL  file  if  necessary'. 

The  fact  that  the  system  does  not  require  more  than  one  entr>'  per  request  and 
that  it  interrogates  all  of  the  appropriate  files,  without  end  user  intervention,  drastically 
reduces  the  amount  of  end  user  time  per  request. 

The  system  is  flexible  and  can  accommodate  a  number  of  potential  user  requests. 
For  example,  If  a  user  wants  to  extend  the  output  information  to  the  type  of 
operation,  he  can  add  one  attribute  to  Master  file  for  the  operation  type,  the  quer>' 
program  can  easily  support  such  requests. 

Figure  4.2  depicts  the  data  fiow  in  the  proposed  system  and  Figure  4.3  shows  the 
transaction  data  flow  diagram. 

D.       THE  PROPOSED  SYSTEM  FUNCTIONS 

1.  Transaction  tracking 

The  main  purpose  of  the  transaction  tracking  is  to  record  each  customer's 
request  for  inventory'  planning  and  management  purposes.  The  proposed  system 
generates  reports  on  the  status  of  each  customer's  or  stock  item.  Transaction  records 
are  saved  in  the  Master  File  for  analysis  of  trends.  The  ASL  file  provides  criteria  such 
as  Reorder  point,  requisition  objective,  and  safety  level. 
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ISSUE  LIST  Page   1 

Date  :  11/13/87 

Prom  :  The  150  Infancy  Division 
To  t  The  150  div  1501  regiment 

Vocher  No:1500QM-0029-7317 

No     Stock  number      Description   Onhand  Unit  Quant 'y    Price      Total 

1  1111-11-111-1111  Test  iteml 

2  5555-55-555-5555  Test  item5 

3  8888-88-888-8888  Test  itemS 


Matrial  Management  NCO  : 


Material  Management  Officer 


SORRYI  Delay  delivery 

7976  Roll        300 

3 

90 

SORRY  1  Delay  delivery 

Grand 

Total 

:$ 

900 

Date  : 

/ 
/ 

/ 
/ 

Date  : 

REQUEST  FOR  ISSUE  Page   1 

Date  :  11/13/87 
To  :  The  3333  Logistics  Support  Command 
Prom  :  The  150  Infantry  Division 

Request  No  2  1500QM-0014-7317 

No   Stock  number     Description    Unit    Quantity     Price     Total 

1  1111-11-111-1111   Test  iteml      Ea  105        10      1050 

2  8888-88-888-8888   Test  itemS      Ea  20        22        440 

Grand  Total  :$       THO 

Matrial  Management  NCO  :  Date  :  / / 

Material  Management  Officer  :  Date  :  / / 


Figure  4.1     Examples  of  transaction  output. 

For  management  purposes,  a  manager  may  ask  specific  questions  on  a 
transaction  record,  a  customer's  transaction  history,  or  the  status  of  a  certain  stock 
item.  However,  The  system  stock  item  queries  are  limited  to  the  status  of  the  item.  An 
extension  to  determine  the  location  of  an  item  may  be  added  with  minor  changes  to  a 
database  file.  This  programming  effort  may  be  done  by  a  knowledgeable  user. 
2.  Report  Generation 

One  of  the  most  important  functions  of  the  proposed  system  is  to  generate 
reports  required  by  the  logistics  support  command  and  the  internal  division  manager. 
The  system  has  a  number  of  hard  coded  reports  and  a  simple  ad  hoc  reporting  facility. 
The  hard  coded  reports  are  described  in  Appendix  C. 
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Figure  4.2  Main  data  flow  diagram 
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Figure  4.3  Transaction  data  flow  diagram 
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Reports  may  be  classified,  into  two  groups,  internal  use  and  external  reports. 
Internal  use  reports  are  those  used  for  performance  analysis.  The  external  reports  are 
the  transaction  output,  e.g.  the  issue  list  resulted  fi-om  request  for  issue  of  the 
organizational  unit,  request  for  issue,  request  for  turn-in  are  for  Logistics  Support 
Command. 

Figure  4.4  shows  the  data  flow  for  report  generation.  More  reports  may  be 
added  to  the  system,  if  requested,  this  will  bring  the  system  closer  to  a  complete 
inventory  planning  management  information  system. 


transaaion  history  data 


Figure  4.4    Report  data  flow  diagram. 


3.  Limited  analysis 

The   proposed    system   uses   the   fixed    order   size   probabilistic    model   for 
determination  of  reorder  point,  safety  level,  and  economic  order  quantity. 
The  assumptions  involved  in  the  proposed  system  are; 

•  The  demand  is  continuous  and  normally  distributed, 

•  Annual  demand  can  be  obtained  through  the  transaction  history  record, 

•  There  are  no  seasonal  effects  on  demand, 

•  The  lead  time  is  constant, 
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•  Service  level  for  each  item  is  known  or  determined  by  managers, 

•  The  stock-out  cost  is  known. 

Other  statistical  consideration  are  presented  in  appendix  A. 

The  annual  demand  is  determined  by  summing  the  efTective  demand  (total 
demand  -  canceled  demand)  and  the  monthly  demand  is  calculated  by  dividing  annual 
demand  by  12.  The  standard  deviation  of  demand  is  calculated  from  the  transaction 
record  histor>'.  The  lead  time  is  obtained  by  computing  the  arithmetic  average  of  the 
order  shipping  times  from  historical  data  for  a  specified  period  of  time. 

After  all  parameters  are  determined,  the  reorder  point,  safety  level,  and 
requisition  objective  are  calculated  and  updated. 


I    M    F    0    R    M    A    T    I    O    N       for    ANALYSIS 


You  selected  stock  nujiiber  :  3883-38-333-3838 

(Test  ite.Ti3,  Unit:Ea,  Class :  3  ) 

Purchasing  price (P)  :  22  S/Ea 

Annual  Demand (R)  :  100  Ea/year 

Lead  time(OST)  in  Month  :  0  Month (s) 

Ordering  cost(C)  :  0.00  S/order 

Holding  cost  unit  per  year  :  0.00  % 
{Select  one  of  these) 

Stockout  cost (If  Known)  :  0.00  S/unit  Select?  U 

Service  Level  in  year  :  0.0000   *      Select?  Y 


CPRESENTI  Reorder  point  :15  Safety  Level  :10 

Requisition  objective  : 50     Lead  Time  :  14 


Is  this  record  right? (Y/N):  X 

Figure  4.5    The  output  from  analysis  process. 

4.  Use  friendly  interface 

One  of  the  purposes  of  this  thesis  is  to  design  a  user  friendly  computer 
program.  Novice  computer  users  can  use  it  without  special  training.  The  proposed 
system  provides  a  user  friendly  interface  by  minimizing  the  possibility  of  errors.  The 
user  does  not  have  to  know  about  the  disk  operating  system.  And  a  manager  who  is 
not  familiar  with  a  division  inventory  system  can  use  it,  since  most  of  the  transaction 
processes  proceed  automatically. 
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E.       SYSTEM  LIMITATIONS 

The  proposed  system  is  not  a  perfect  system.  An  objective  of  this  system  is  to 
improve  logistics  management  capability.  This  is  a  difTicult  task  and  requires  many 
additional  software  applications.  For  example,  better  system  would  include  accounting 
and  inventor\'  tracking  functions.  The  proposed  system  addresses  just  on  main  logistics 
function.    Constructive  comments  and  remarks  are  welcomed  and  solicited. 

1.  Demand  forecasting 

.  Demand  forecastmg  forms  the  basis  of  managerial  decisions  and  if  it  is 
accurate,  managers  don't  have  to  worry  about  safety  level  or  lead  times. 

The  proposed  system  does  not  forecast  demand.  The  annual  demand 
quantities  are  based  on  one  year  historical  records  or  as  specified  period.  Managers 
can  retrieve  historical  demand  data  in  various  forms,  by  item,  period,  unit,  or 
combinations,  and  use  it  in  forecasting. 

An  extension  to  the  software  is  needed  to  provide  demand  frequency 
information  by  unit  by  type  e.g.  training,  exercise,  routme  job,  or  special  purpose. 

2.  Statistical  analysis  of  transactions 

Statistcal  analysis  was  not  fully  covered  in  this  system.  Only  two  models  were 
presented  for  analysis;  the  known  stock-out  cost  model  and  service  level  model  under 
normally  distributed  demand,  were  presented.  There  are  a  number  of  other  models  for 
inventor}'  management.  The  system  should  be  enhanced  by  adding  various  models  and 
allowing  organizations  to  choose  the  model  appropriate  for  their  needs. 

3.  ASL  request 

As  was  mentioned  in  chapter  II,  the  division  commander  can  ask  for 
additional  items  for  the  ASL  for  his  division.  The  basis  of  for  this  request  is  also 
described  Table  2  in  chapter  II.  The  query  menu  in  the  software  written  for  this  thesis 
allows  the  division  logistics  manager  to  quickly  determine  if  a  particular  item  will 
qualify  for  stockage  in  the  ASL  based  upon  its  demand  history.  The  software  for  this 
thesis  does  not,  however,  include  the  facility  to  automatically  generate  a  request  to  add 
a  particular  item  to  the  division  ASL. 

4.  Fund  Accounting 

The  accounting  of  the  fund  (of  RCN)  is  important  to  managers,  so  the 
proposed  system  is  partially  prepared  to  do  this  function.  1  he  resource  control  number 
(RCN:  an  attribute  of  an  item)  is  based  on  the  current  PPBEES.  While  the  proposed 
system,  includes  all  the  needed  elements,  it  must  be  extended  to  perform  accounting 
functions. 
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ADVANTAGES  OF  THE  SYSTEM 

By  applying  the  proposed  system 

1.  The    Army    can    improve    one    of   its    logistics    objectives:    automatic    data 
proccssmg. 

2.  The  system  contributes  to  the  PPBEES  implementation  by  generating  timely 
and  accurate  reports  for  various  supply  units. 

3.  It  allows   for  more  elTective  utilization  of  personnel  time  by   shortening  the 
administrative  process. 

4.  .More  accurate  records  can  be  maintained. 

5.  The  system  can  be  extended,  with  minimal  effort,  to  include  fund  accounting 
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V.  CONCLUSIONS 

A.  CONCLUSIONS 

The  proposed  system  is  a  user  friendly,  menu-driven,  modularly  designed 
database  management  system  focusing  on  the  supply  distribution  function  of  the  ROK 
Army  division.  It  will  reduce  investment  in  personnel,  and  material  and  generate 
timely  and  accurate  reports  serving  division  managers.  The  system  may  be  operated  by 
novice  as  well  as  experienced  personnel. 

To  develop  this  system,  the  ROK  Army  logistics  structure,  current  logistical 
management  methods,  and  problems  were  described  in  chapter  II.  The  same  chapter 
describes  current  computer  usages  in  the  ROK  Army. 

The  third  chapter  includes  the  structure  of  the  database,  its  major  capabilities, 
and  benefits.  The  chapter  presents  the  fundamentals  of  databases  and  the  database 
management  system  used  in  developing  the  system,  i.e.  dBASEIII  PLUS. 

The  fourth  chapter  describes  the  proposed  system:  what  it  can  or  cant  do  for  the 
logistics  control  management  in  the  ROK  Army  division.  The  chapter  also  adresses 
the  benefits  of  the  implementation  of  the  proposed  system. 

Through  the  development  of  this  system,  the  author  achieved  the  primary  goal  of 
this  study  by  combining  the  knowledge  of  the  ROK  Army  logistics  management, 
relational  database,  design  of  the  database  management  system,  and  programming 
techniques.  The  implementation  of  the  DBMS  in  ROK  Army  division  should 
contribute  significantly  to  the  supply  effort. 

By  using  this  program,  the  ROK  Army  division  can  reduce,  the  current  volume  of 
paperwork  and  overtime  devoted  to  routine  tasks.  The  proposed  system  can  save 
personnel  and  material  resources,  thereby  freeing  these  resources  to  other  vital 
objectives  such  as  enhancement  of  the  combat  power. 

B.  FURTHER  STUDY 

In  this  thesis,  the  author  deals  only  with  the  distribur  on  function  from  among 
many  other  logistics  functions.  A  more  comprehensive  system  would  include 
accounting,  maintenance  tracking,  and  provisions  for  analyzing  transacton  records 
svstem. 
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Different  inventor}'  control  models  would  be  applied  to  enhance  the  database 
management  system.  Only  two  of  the  many  models  available  have  been  implemented 
in  this  thesis. 

Networking  and  interconnecting  this  system  with  available  mainframe  systems  is 
another  issue  not  addressed  in  this  thesis.  A  final  objective  is  to  tailor  this  system  for 
use  in  comabat  situation. 
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APPENDIX  A 
STATISTICAL  CONSIDERATION 

The  material  in  this  appendix  is  extracted  directly  from  Tersine 
[Ref.  3:  131-165. |pp  It  is  given  here  because  the  decision  of  safety  level,  reorder  point  in 
the  proposed  system  is  based  on. 

According  to  Tersine,  when  the  demand  is  probabilistic  (not  deterministic),  it  is 
necessary  to  minimize  the  expected  total  cost  for  inventory  management.  If  the 
demand  distribution  is  continuous,  the  minimum  expected  total  cost  expression  is 
obtained  by  taking  the  derivative  of  the  total  expected  cost  with  respect  to  the  decision 
variable  and  then  setting  it  equal  to  zero. 

If  leadtime  demand  is  distributed  according  to  a  continous  probability 
distribution  f^.M)  then  mean  leadtime  demand  is  given  by: 

M  =  Jo^MRMjdM        (eqn  A.l) 

and  the  standard  deviation  of  leadtime  demand  is  the  square  root  of  the  variance 
whicch  is  given  by: 


(j2  =  y-(.M  -  M)2f(.VI)d.M     (eqn  A. 2) 


Where: 

M  =  random  variable  for  lead  time  demand 

f(m)  =  probability  density  function  of  lead  time  demand 

a  =  standard  deviation  of  lead  time  demand 

M  =  mean  lead  time  demand 

The  probabihty  of  a  stockout  for  a  given  item  is  simply  the  probability  that  the 
demand  during  the  lead  time  will  exceed  the  reorder  point.    The  stockout  probability  is 
the  first  definite  integral  of  the  probabihty  density  function  of  demand  during  the  lead 
time  from  the  reorder  point  to  infinity. 
That  is: 


P(M  >  B)  =  P(s)  =  Jg   fIM)dM  (eqn  A. 3) 

45 


Where  :  B  =  Reorder  point 

M  =  Random  variable  for  leadtime  demand 
The  expected  stockout  quantity  during  the  lead  tmie  is  the  second  definite  integral  of 
the  probability  density  function  of  demand  durmg  the  lead  time  from  the  reorder  point 
to  infinity. 
That  is 


E(M>B)  =  |^(M-B)f(M)dM    (eqn  A.4) 


When  demand  is  normally  distributed,  the  reorder  point  can  be  obtained  from 
following  formula; 

B  =  M+S  =  M+Zg  (eqn  A. 5) 

Where 

M  =  Mean  lead  time  demand  in  units 

S  =  safety  stock  in  units 

Z  =  Standard  normal  deviate  corresponding  to  the  desired  stockout 
probability 

(T=  Standard  deviation  of  lead  time  demand. 
Kno\>n  stockout  cost  per  stockout  event 

The  proposed  system  assumes  that  demand  is  normally  distributed  and  lead  time 
is  constant  (that  is  realistic  for  many  items).  It  is  also  assumed  that  a  fixed  shortage 
cost  is  incurred  one  time  only  in  each  reorder  cycle  which  experienced  a  stockout 
situations.  This  cost  is  assumed  to  be  unafTected  by  the  number  of  units  or  requisitions 
which  are  backordered  during  a  reorder  cycle.  Since  the  historical  distribution  of 
demand  is  available,  the  safety  stock  can  be  determined  by  selecting  a  safety  level  that 
results  in  the  lowest  expected  cost.  It  is  easy  to  determine  the  safety  stock  using  this 
method.  The  objective  is  to  minimize  the  sum  of  the  cost  of  holding  the  safety  stock 
and  the  cost  of  the  stockouts.  The  danger  of  stockout  occurs  only  during  the  lead 
time.  There  are  R,Q  lead  times  of  opportunity  for  a  stockout  to  occur  is  obtained  by 
taking  the  derivative  of  the  expected  annual  cost  of  safety  stock  with  respect  to  the 
reorder  point  and  setting  it  equal  to  zero. 

Annual  cost  of  safety  stock  =  (holding  cost)  +  (stockout  cost) 
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TC^  =  SH  +  GRQ(  J^f(M)dM)        (eqn  A.6) 
=  H(B  -  W)  +  GR  PlM>B).Q 

TC    =  expected  annual  cost  of  safety  stock 
B  =  S  +  M  =  reorder  point  in  units 
S  =  salet>  stock  inunits 

\{  =  holding  or  carrying  cost  per  unit  per  year 
G  =  backordering  cost  per  outage 
R=a\erage  annual  demand  in  units 
Q  =  lot  size  or  order  quantity  in  units 
f(M)=  probability  density  function  of  lead  time  demand 
W=  average  lead  time  demand  units 
If  the  derivative  of  the  expected  annual  cost  of  safety  stock  with  respect  to  the 
reorder  point  is  taken  and  set  equal  to  zero,  the  following  relationship  is  obtahied; 

f(B)  =  HQ  GR  (eqn  A. 7) 

However  for  normal  distribution  the  optimum  reorder  point  is  not  obtained  from 
above  equation,  since  the  the  ordinate  f(B)  undergoes  a  change  of  scale  when  it  is 
transformed  to  the  standard  normal  distribution.  Thus,  if  we  are  to  find  f(B),  we  must 
find  here  the  standard  normal  distribution  has  an  ordinate  of  f(B)  x  <T  The  standard 
normal  deviate  Z  for  the  optimum  stockout  probability  can  be  obtained  directly  from 
the  standard  normal  table. 

The  optimizing  safety  stock  can  be  obtained  from  normal  database  and  the 
following  formulas; 

Z  =  (B- W);  (T  =(B-(^  X  l));((j^)  y/ir=  S  ((T  X  ^T)      (eqn  A. 8) 

S  =  Z(7  =  Z  <Tp  y/T    (eqn  A.9) 

•vhere 

Z  =  standard  normal  deviate 

B  =  CxL-(-S  =  reorder  point  in  units 

W  =  D   X   L  =  average  lead  time  demand 
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<T  =  Standard  deviation  of  lead  time  demand 

L  =  lead  time 

S  =  safety  stock,  in  units 

<Tf^  =  standard  deviation  of  demand  for  a  time  period  other 

than  the  lead  time. 
Service  level  is  given  instead  of  stockout  cost  per  outage 

Most  of  the  time  in  the  ROK  Army  stockout  costs  are  ver>'  dinicult  to  obtain 
because  of  its  accounting  system.  Under  these  circumstance,  using  set  service  level  is  a 
more  rational  way  of  determining  safety  stock.  A  service  level  indicates  a  level  of 
ability  to  meet  customer  demand  from  stock. 

The  establishment  of  a  service  level  is  a  subjective  management  judgement  that  is 
based  on  convenience  rather  than  scientific  justification.  The  choice  by  management  of 
service  level  implies  a  cost  attributed  intuitively  or  indirectly  to  stockout. 

Example:  If  the  annual  demand  for  an  item  is  normally  distributed  with  a  mean  of  8000 
units  and  standard  deviation  of  1000  units,  what  should  the  safety  stock  and  reorder 
point  be  if  the  lead  time  is  1,2  month?  (assume  management  has  decided  it  is  willing  to 
be  out  of  stock  in  5''o  of  the  order  cycles) 

From  the  normal  distribution  table,  Z=  1.64  corresponding  to  a  5% 

one  tail  risk  of  stocking  out. 

D  =  R  12  =  667 


(Tf^=  (T  v'  (1  1-)  =  288 
S  =  M     -  D  X   L  =  335 

a         — 

Where  :  R  =  Average  annual  demand 

M    =  B  =  lead  time  demand  at  acceptable  service  level  in  units, 

The  safety  stock  is  335  units,  and  the  reorder  point  is  669  units. 
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APPENDIX  B 
DATA  STRUCTURE 

1.  OVERVIEW 

There  are  seven  interrelated  files  in  the  proposed  system.  The  PROPERTY'  and 
ASL  file,  PROPERTY.DBF  and  ASL.DBF.  are  used  in  the  inventory  control 
management.  They  contain  for  each  item  its  stock  number,  its  attributes  and  its 
inventory  control  criteria. 

The  main  files  for  transactions  and  report  and  statistics  generation  are  the 
BATCH  MASTER,  and  STOCKOUT  files  -  BATCH. DBF,  MASTER.DBF, 
STOCKOL'T.DBF.  The  batch  file  is  a  depository  of  all  the  transactions  arriving  in  one 
day.  At  the  end  of  the  day,  transactions  are  processed  and  the  demand  is  satisfied 
based  on  the  transaction  priority,  priorities  are  determined  by  the  units  Standard 
Operating  Procedure(SOP.)  Transactions  are  moved  to  either  the  master  or  the 
stockout  files. 

These  three  files  contain  transaction  specific  data.  As  detail  files, they  define  only 
those  elements  defining  a  transaction  and  do  not  include  global  or  unchanging 
elements. such  as  the  customer's  description  or  stock  item's  nomenclature.  Global 
elements  are  referenced  by  a  unique  identifier. 

2.  DATA  FILES 

a.  Master 

The  elements  in  the  master  file  are  SN.  CI,  VN,  REQNO,  QTY,  T^PE, 
LMTCOST,  MISC,  DATE,  and  POSTED.  The  SN  field  identifies  the  stock  number 
of  each  item  on  the  transaction  and  is  the  key  to  the  items  file.  CI  contains  the 
customer  number  and  is  the  key  that  link  a  transaction  to  the  customer  file  which 
contains  data  on  customer  and  supplier.  SN  and  CI  link  the  records  to  the  other 
source  files.  VN  contains  the  voucher  number  of  the  transaction,  and  REQNO  is  the 
requisition  number. 

The  remaining  fields  --QTY,  L'NITCOST,  DATE,  contain  the  quantity,  unit 
price,  and  date  of  the  transaction.  The  TYPE  field  contains  the  transaction  type  which 
is  shown  in  chapter  II,  Fig  2.2  transaction  procedure.  Table  4  in  this  appendi.x 
includes  a  detail  description  of  the  contents  of  the  various  elements. 
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TABLE  3 
DATA  STRUCTURE 


Database      Field  name 


Mas  te r         ( SN ,  CI , VN , REQNO , QTY , TYPE , UMITCOST , MISC , DATA , POSTED ) 
Primary  =  SN   keys  =  CI, TYPE 
Record  on  all  transactions. 

Prope  r  ty       ( SM , SERI ALNO , NM , UNIT , ONHAND , UNITCOST , TVALUE , 
ESSENCE, CLASS, DATE) 
Primary  =  SN 
Data  on  characteristics  of  stock  item. 

ASL  (SN,ROP,SL, ROOST, RCN, DATE) 

Primary  =  SN 
Data  on  transaction  control  measures. 

Cus  tomer       (CI , CDESC , ADDRESS , ZIPCODE , FUND , EXPEND , 
PRIORITY, DATE) 
Primary  =  CI 
Data  on  customer's  record. 

Stockout       ( SN, CI ,VN, REQNO, TYPE, QTY, UNITCOST, DATE, MISC, POSTED) 
Primary  =  SN  keys  =  CI,  TYPE 
Records  on  all  stockout  transaction. 

Batch  ( SN , CI , VN , REQNO , TYPE , QTY , UNITCOST , DATE , MISC , POSTED ) 

Primary  =  SN  keys  =  CI, VN, REQNO 
Intermediate  records  on  transactions. 

Normal        (TZ,POFB,POFM,EOFZ) 
nokey 
Table  of  normal  distribution. 

b.  Property  file 

The  property  file  contains  all  the  information  pertinent  to  each  stock  number. 
The  first  field,  SN,  is  the  key  for  accessing  this  file.  The  ONHAND  and  UNITCOST 
are  quantity  on  hand  and  the  unit  cost  respectively.  For  other  fields  refer  to  the  Table 
3 

c.  ASL  file 

The  ASL  file  contains  all  the  information  on  the  control  measures  for  each 
item.  The  first  field,  SN,  is  the  key  for  accessing  this  file.  RO  field  is  the  requisition 
objective  defined  in  chapter  two.  ROP  is  the  reorder  point,  whenever  the  ONHAND 
on  property  file  reaches  to  this  point,  the  system  issues  a  request  for  issue  to  the 
logistics  support  command  automatically.  SL  is  safety  level  used  in  calculating  the 
appropriate  requisition  objective. 
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d.  Customer  file 

The  customer  file,  CUSTO.VIER.DBF,  whose  structure  is  shown  in  Table  3, 
contains  all  the  information  on  both  customers  and  suppliers.  The  customer  ID  (CI)  is 
the  primary  key  for  the  customer  file,  allowing  quick  access  to  a  particular  customer 
record.  The  field  CDESC  contains  the  description  of  the  CI.  The  two  fields  FUND 
and  EXPEND,  althought  not  used  by  the  system,  are  included  in  this  file.  Those  fields 
provide  the  fiexibility  to  extend  the  system  and  add  fund  accounting  modules. 

e.  Stockout  file 

The  stock-out  file.  STOCKOLT.DBF,  contains  the  Stock  Out  items.    The 
fields  SN  and  CI  link  the  file  to  the  property  file  and  customer  file.  The  VN  field 
defines  the  transaction, 
f    Batch  file 

The  batch  file  holds  all  transactions  for  the  day.  At  the  end  of  the  day, 
transactions  are  processed  and  fulfilled  based  on  their  priority.  As  a  result  of  the 
processing  transactions  are  transfered  to  either  the  master  or  the  Stock  Out  files.    The 
field  are  the  same  as  master  file, 
g.  Normal  file 

The  normal  file,  NORMAE.DBF,  contains  the  values  of  the  normal 
distribution,  which  provides  the  Z  value  corresponding  to  sigma.  The  field  EOFZ 
contains  the  expected  number  of  stockout  with  the  probability  of  stockout. 

3.        INDEX  FILES 

The  proposed  system  maintains  a  number  of  index  files,  each  database  file 
(except  normal. dbO  uses  at  least  one  index  as  a  primary  index  for  data  retrievals  during 
execution  of  the  program.  In  addition,  some  files  have  additional  indexes  used  by 
programs  in  printing  reports  or  internal  operations. 
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TABLE  4 
DATA  DICTIONARY 


Field  name  Type 


Width  Dec 


Location 


Address 
Cdesc 

Class 

Date 
Essence 

Expend 

Fund 

Fundoh 

Misc 

MM 

Onhand 

Ost 
Outdate 

Priority 

Qty 

RCN 


Character 
Character 

Character 

Date 

Logic 

Numeric 

Numeric 

Numeric 

Logic 

Character 

Numeric 

Numeric 

Character 

Character 

Numeric 

Numeric 


Refilldate  Date 
ReqNO       Character 


RO 


ROP 


Numeric 


Numeric 


Serialno    Character 
SL         Numeric 


SN 

lvalue 
Type 


Character 

Numeric 
Character 


60 

30 


8 

1 
10 
10 
10 

1 

16 

5 
3 
4 
1 
5 
4 

8 

16 

5 

4 

10 
4 

16 

10 
2 


Customer 

Address  of  a  customer. 

Customer 

Common  name  of  the  customer. 

(Ex.  The  150  division  1002  regiment) 

Property 

Material  classification. 

(Ex.  3  for  fuel) 

All  databases 

System  date,  or  real  date  of  the  recod. 

Property 

Combat  essential  item. 

Customer 

The  amount  of  $  spent  by  customer. 

Customer 

The  allowed  fund. 

Customer 

The  onhand  amount  of  $. 

Master , Batch 

Availability  to  reuse. 

Property 

Description  of  the  stock  number. 

(Ex.  Hammer,  . . . ) 

Property 

The  amount  of  thee  item  in  storage. 

ASL 

Order  shipping  time  (lead  time  to  issue), 

Stockout 

Stouckout  date. 

Property 

Issue  priority  of  the  customer's. 

Master,  Batch,  Stockout 

The  quantity  involved  in  the  transaction. 

ASL 

Resource  control  number. 

(Ex.  1289  for  Rice) 

Stockout 

Refill  date  of  the  stockout  item. 

Batch,  Stockout,  Master 

Request  number  composed  of  zulu  date 

and  sequential  number  of  the  order. 

ASL 

Requisition  objective  of  a  stock  item. 

RO  =  SL  +  EOQ 

ASL 

Reorder  point  of 

ROP  =  SL  +  OST  X 

Property 

Serial  number  of  end  item. 

ASL 

Safety  level. 

SL  =  OST  X  possibility  of  stockout 

Master,  ASL,  Property, 

Stockout,  Batch 

Stock  number  which  is  specified  to 

every  stock  item. 

Property 

Total  $  value  of  onhand  quantity. 

Master,  Stockout,  Batch 

Transacton  type. 

(Ex.  RD  =  request  for  issue  to  division 

from  organizational  unit) 


a  stock  item, 
demand  rate 
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TABLE  4 
DATA  DICTIONARY  (CONT'D.) 


Unit 

Character 

4 

Unitcost 

Numeric 

8 

VN 

Character 

16 

Zipcode 

Character 

6 

Property 

Measureing  unit  of  the  item. 

(Ex.  Cm,  Kg,  Each,  Drum ) 

Master,  Property, 

Stockout,  Batch. 

Unit  price  of  each  item. 

(Ex.  $20.00  for  hammer) 

Master,  Batch 

Voucher  number. 

(Ex.  1500QM-0012-8309) 

Customer 

Zipcode  of  a  customer's  address 


TABLE  5 
INDEX  FILES 


File 

Property 
Customer 
ASL 
Batch 

Stockout 

Master 


Index   Index      Description 
key     name 

SN      Snproper    Index  by  stock  number 

CI      Cicust      Index  by  customer's  ID 

SN      Inasl       Index  by  stock  number 

SN+CI    Sncibat     Index  by  stock  number  and 

Customer's  ID  (Used  in  transaction  issue  list) 
CI      Cibat      Index  by  customer's  ID. 

SN+CI    Stockout    Index  by  stock  number  and  customer's  ID 

(used  in  retrieve  stockout  item  which  is 
caused  by  customer) 

SN+CI    Sctmast     Index  by  stock  number 

+TYPE  and  Customer's  ID  and  transaction  type. 

CI+SN    Csmast      Index  by  customer  ID  and  stock  number 
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APPENDIX  C 
SYSTEM  STRUCTURE 

1.  OVERVIEW 

The  proposed  system  consists  of  four  modules  MANAGFL,  TR^WSACT. 
REPORTS  and  ANALYSIS  performing  the  following  four  functions  file  management, 
transaction  processing,  report  generating  and  analysis.  There  are  a  number  of 
subroutines  and  performing  functions  common  to  one  or  more  modules.  The  system 
strucutre  is  shown  in  Figure  C.l  The  menu  system  designed  for  this  application 
corresponds  to  the  gray  portion  on  the  figure.  Appendix  D  (User's  Manual)  contains 
detailed  instructions  on  how  to  use  the  system.  This  appendix  will  concentrate  on 
describing  the  modules. 

2.  PMMAIN 

PMMAIN  is  the  normal  starting  point  of  the  program  and  it  displays  the  main 
menu  and  stores  the  last  request  and  voucher  numbers  issued  by  the  division.  The 
menu  is  used  to  to  select  one  of  the  four  main  modules  as  shown  in  Figure  C.2 

3.  MANAGFL 

This  module  is  designed  for  file  management  and  contains  ten  submodulcs  and 
several  screen  formats.  During  the  initial  system  loading,  the  user  needs  to  enter  data 
into  Property,  ASL,  and  Customer  files  using  the  ADDPROP,  ADDASL  and 
ADDPROP  submodules.  During  routine  operations,  the  user  may  correct  entered 
records  in  Property,  ASL,  and  Customer  files  by  using  EDITPROP,  EDITASL.  and 
EDITCL'ST  respectively.  The  user  may  correct  transactions  using  EDFFMAST  and 
EDITBAT. 

The  flow  chart  in  Figure  C.3  illustrates  the  procedure  of  ADDPROP. prg.  Since 
the  file  management  procedures  are  closely  related,  only  one  flow  chart  is  presented  as 
an  illustration. 

The  Manageq  provides  queries  on  files.  The  user  may  consult  the  present  list  of 
stock  numbers  by  stock  number,  material  class,  or  all  stock  items.  An  example  is 
shown  on  the  Figure  C.4 
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TRANSACT 

> 


_     TRSTOCKRI) 


il 


TRBATCH 

SMIJP 

TRISSUE 

-       TRREQLST 


I 


SETUP      -^    AODCuST 


TRSTOCK 


-      TURNTOLC 


TRTURNIN 

njRNiN 

■      ADOCUST 

TRTUNLST 

TRCANCEL 


Ij 


QUERY 


INVENTORY 
MANAGEMENT  SYSTEM 
(PMAIN) 


MYFILE 


PMMENU 


REPORTS 


ANALYSIS 


-  RPTSR 


I 


ANLEADT 


PRINTER    -^    SELECT 


PRINTER 


RPOST 


SELECT 


ANEOQ 


-  FIPEIS 


I 


PRINTER         SELECT 


L  RPSOR 


ANPROC 


PRINTER 


ALL 


CLASS 


STOCK  NO 


PRINTER 


FigTjreC.l    Detailed  system  structure 
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MANAGEFL 


-         ADDASL 


-       ADDPROP 


CDirpRO 


■'■       PKOP  tml 


ADDCUST 

ASl   Imt 

EDI  I  PRO 

tDllASt 

■       PROP  tml 

EDITASl. 


-        EDITBAT 


U 


EDITCUST 

L      cnirrn 


EDITMAST 


EDITPROP 

^    EDirpftOP 

MANAGEQ 

Inve  n  tory   Management   System 


1  1:  Transaction 

■-" 

1 

Routine  transaction: 
Request  for  issue 
Receive  item 
Query  on  transaction 

3:  Report 


Report  Generation: 
Transaction  status  report 
Stockout  report 
Essential  item  stockout 
OST  report.  Fund  status 


fe 


-j  2:  Manage  file 

■ir 

Management  of  file: 
Add 

Edit  (delete, change) 
Query  on  files 

- 

-j  4:  Analysis 

-■• 

Analysis  of 
Reorder  point 
Lead  time 

Requisition  Objective 
Safety  Level 

■ 

[Enter  Selection  (1  -  4,  5  to  change  date,  or  0  to  exit: 


Today  is  11/18/87  (ZULU:7322) 

Figure  C.2    Pmmain  screen. 

4.       TRANSACT 

Tliis  module  includes  ten  submodules  corresponding  to  the  type  of  transaction, 
and  query  on  transaction.  The  overall  data  flow  is  shown  in  the  Figure  4.3  This 
module  is  the  main  procedure  and  contains  the  analysis  and  report  programs.  The 
main  menu  for  this  module  is  shown  in  the  Figure  C.5 

a.  StockRD 

This  submodule  is  designed  for  transaction  type  RD  -  request  for  issue  to  the 
division  from  the  organizational  unit.  It  stores  input  transactions,  e.g.  request  for  issue 
and  turn-in,  in  a  batch  fde.  The  submodule  checks  the  validity  of  both  the  stock 
number  and  the  Customer  ID.  If  either  is  invalid,  or  the  number  is  not  included  in  the 
apprporiate  parent  file,  i.e.  Property  and  Customer  files,  the  program  will  prompt  the 
user  to  update  the  parent  files  prior  to  accepting  the  entry.  In  other  words  no 
transactions  is  accepted  without  a  valid  SN  and  CI.  The  Figure  C.6  illustrates  the 
procedure. 

b.  TRbatch  and  TRissue 

These  submodules  are  the  batch  file  processing  procedures.  They  check 
whether  the  ONHAND  quantity  satifies  the  total  quantity  requested  in  that  day.  If  the 
ONHAND  is  less,  transactions  are  satisfied  based  on  their  priority.  The  submodules 
generate  a  request  for  material  when  the  ONHAND  quantity  reaches  the  reoder  point. 
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(^      Start      ^^ 

V       ADOPROP    J 


Clear  screen 
Select  files 


Checking  for  unique  SN 


(^    Return    "\ 

V      ADDPROP       } 


Add  new  SN  in  property 


Look  forstockn  =  SN 


Append  blank 


Set   format  to  PROP 


I 


Read  entries 


Set  format  to 


L 


i 


Clear  screen 

Tell  "Already  exist' 


Set  format  to  Editprop 
EDIT 


L 


N  /^s^Not 

\^^  ■> 

Y    /^nii nrN 

sN 

Checking  foi 
Add  new 

L 

^V            7             y^ 

'  unique  SN 
SNinASL 

Close  all  files 

(^    Return \ 

V      ADDPROP      ) 


Figure   C.3  The  flow  chart  of  ADDPROP  module 
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Query  on  Stock  number 


Options 

1.  Stock  number 

2.  Class         Enter  Class  Number:  7 

3.  All  [0]  for  class  10 

4.  Return  to  main  menu 
Enter  Option:  2 


Page  No. 

11/16/87 


Stock  number  Listing 


10.00 

180 

180 

50 

20 

12.00 

93 

190 

10 

3 

1122.00 

438 

10 

3 

2 

2.00 

200 

290 

100 

30 

1.00 

520 

7000 

100 

80 

0.20 

1120 

1800 

900 

45 

10.00 

30 

500 

25 

15 

120.00 

23 

0 

0 

0 

26.00 

5085 

500 

280 

140 

Stock  number  Nomenclature      Price  Onhand  Requisiton  Reorder  Safety 

Objective  Potint   Level 

•*  Material  Class  7 

7520-00-281-5911  Basket,  Waste 

7510-00-984-5787  Binder 

7920-00-141-5452  Handle,  Wood 

7520-00-904-1268  Marker 

7510-00-022-8926  Pencil 

7510-00-543-6792  Refill 

7930-00-141-5888  Wax,  Floor 

7940-00-168-3366  Widget 

7777-77-777-7777  Test  item7 


Figure  C.4    Example  of  MANAGEQ  module. 

Finally  they  are  responsible  for  aggregating  ail  requests  from  a  single  customer  into  a 
one  issue  list.   Figure  C.7  shows  their  flowchart. 

c.  TRreqIst 

Module  TRREQLST  is  used  for  special  events,  that  is,  the  manager  may  be 
requested  to  prepare  for  special  events  in  the  division  such  as  training  or  unplanned 
construction.  This  module  issues  a  warning  to  reflect  that  the  input  transaction  is  not 
a  regular  one. 

d.  TRstock 

This  module  designed  for  type  'IL'  transactions,  ie  issue  from  logistics  support 
command.  This  module  validates  the  customer  or  supplier  ID  and  the  item  SN  as  one 
of  the  authorized  supplier,  initial  supplies,  and  ASL  item.   A  second  check  determines 
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Transaction   routine 


Type  of  transaction 

-  Source 

1  :  Request  for  issue 

2  :  Issue  to  customer 

3  :  Request  for  turn-j 

to  Div 
from  Div 

in  to  Div 

Stock  number  t 
Customer  : 

5  :  Request  for  issue  to  LSC 

6  :  Request  for  turn-in  to  LSC 

7  :  Cancel  RL  to  LSC 

8  I  Cancel  RD  to  Div 

9  :  Query  on  transaction 

Information 

Today  is 12/02/87 

(Zulu  :  7336) 

Last  VN  :  1500QM-0031-7317 
Last  Reqno  :  1500QM-0014-7317 

(Enter  Selection  from  (1  - 

9, 

or  0  to  return)  :1: ] 

Figure  C.5    Transaction  menu  screen. 

whether  the  item  received  is  a  stock  out  item.  If  it  is,  the  delayed  issue  list  is  processed, 
and  all  related  recording  is  posted  (STOCKOUT.DBF,  MASTER. DBF).  This  process 
is  shown  in  Figure  C.8 

e.  TURTOLC,  TRTURNIN  and  TRTUNLST 

Thesa  submodules  accepts  items  returned  from  units.  Turn-in  flow  chart  is 
shown  in  Figure  C.9 

f    Query 

This  module  generates  transactions'  reprots.  Queries  such  as  how  many 
transactions  have  occurred  in  given  period  for  specified  customer,  stock  number, 
material  class,  or  all  stock  number,  may  be  answered.  Figure  CIO  shows  the  screen 
menu  for  this  submodule. 
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start 
(TRSTOKRD) 


Open  files 


NEVER  FALSE 


Select  Batch. dbf 


/         Display   screen         / 


Record 
the  transaction 


Display  menu  screen 


Select  Customer 


Close  databases 


Open  cust.dbf 


RETURN 


Tell  'Do  you  want  to  acjcj  customer  ^" 


Hold  description  of  customer 


Open  property  dbf 


Tell  "Is  this  initial  demand(Y/N)'" 


Hold  unitcostof  thestockn 


V^ConfirmNjlL 


Figure  C.6  TRSTOKRD  (Request  to  division)  module  flow  chart 
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START 
(TRBATCH) 


OPEN  FILES 

SET  RELATIONSHIP 


Create  TEMPBAT 


Figure  C.7   TRBATCH  (batch  process)  module  flow  chart 
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0 


Initialize  variables 


Sum  all  requested  qty 


NEVER  FAULSE 


/         Display  screen  / 


Save  transaction 


Look  for  conditions 


B  M- 


Select  request  transact 


Calculate  QTY 


Y_/qiy\  N 


Post  transaction 


Post  transaction 


Begin  another  T 


J 


Selert  neift  transact 


START 
(TRSTOCK) 


Open  files 


Initialize  variables 


Get  mcil.Stockn 


Hold  values 


Look  forSTOCKN 


Hold  values 


0 


/         Display  screen  / 


CLOSE  DATABASAES 


c 


RETURN 


3 


Ask  "  New  customer'" 


X 


DoADDCUST 


Ask  "  Initial  supply'" 


Jx 


DoADDPROP 


Ask  ■'   ASL'" 


11. 


DoADDASL 


Figure  C.8  TRSTOCK  (Issue  from  LSC)  module  flow  chart 
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f           START 

V^     (TURNTULC)  ^ 

) 

1 

Open  OATABASAES 

1 

Initialize  variables 

1 

Create  TEMPORARY  file 
for  Reuseable  item 

Erase  TEMPORARY 


Create  TEMPORARY  file 
for  Unreuseable  item 


Index  on  SN  to  TEMPBAT 


Tell  "Ready  Prmteri"     / 
1^ 


Selea  Transaction 


Eof()\  N 


PRINTING 

PROCESS 

AS  right  Shadow 


Close  databases 


(^      RETURN       ^ 


Figure  C.9  TURNTULC  (Turn-in  to  LSC)  module  flow  chart 
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Sales  Traclcing 


Options 

1.  Detail  Sales 

2.  Summary  Sales 

3.  Detail  Customer  Sales 

4.  Summary  Customer  Sales 

5.  Return  to  main  menu 
Enter  Option:  1 


Enter  period  for  sales  tracking  (01/01/87  -  01/01/8  ) 


Page  So. 
11/16/87 


Sales  Transaction  Traclcing 
Detail  Sales 


Customer   Quantity     Price  Total 

ID  t 


••   Stock   numiser   1111-11-111-1111 

1500 

1500 

1509 

1509 

1509 

1509 

1509 

1509 

3333 

5090 

5093 
••  Subtotal  •• 

651 

••  Stock  number  2222-22-222-2222 
1500  97      10.00 


7 

10.00 

88 

10.00 

1 

10.00 

100 

10.00 

100 

10.00 

10 

10.00 

10 

10.00 

40 

10.00 

95 

10.00 

100 

10.00 

100 

10.00 

1500 

97 

10.00 

1504 

100 

2.00 

1507 

10 

2.00 

1508 

200 

2.00 

••  Subtotal  •* 

504 

*•  Stock  number 

3333-33 

-333-33 

1500 

25 

0.00 

1509 

2 

102.00 

1509 

2 

102.00 

5012 

2 

0.00 

5014 

1 

102.00 

5032 

2 

102.00 

••  Subtotal  •• 

70 

.00 

880 

.00 

10 

.00 

1000 

.00 

1000 

.00 

100 

.00 

100 

.00 

400 

.00 

950 

.00 

1000 

.00 

1000 

.00 

6510 

00 

970 

00 

970 

00 

200 

00 

20. 

00 

400. 

00 

2560. 

00 

0. 

00 

204. 

00 

204. 

00 

0. 

00 

102. 

00 

204. 

00 

34  714.00 


Figure  C.IO    Example  of  Query  on  transaction  module. 
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5.       REPORTS 

This  module  consists  of  RPTSR,  RPOST,  RPEIS,  RPSOR  for  transaction  status, 
order  shipping  time,  essential  item  stockout,  and  stock  out  reports  respectively.  Each 
module  creates  temporary  files  and  erases  them  at  the  end  of  session.  The  selection 
screen  in  this  module  is  shown  on  the  Figure  C.ll  followed  by  examples  from  the 
various  reprots, 


REPORTS 


Type  of  Reports 

1 

: 

Transaction  Status 

Report 

(DA  form  3183) 

2 

• 

Stockout  Report 
(DA  form  3184) 

3 

• 
• 

OST  Report 
(DA  form  3185) 

4 

I 

Combat  Essential  Item 
Stockout  Report 
(DA  form  3186) 

Information 

1 

Last  TSR  Report  Date 
11/12/87 

Today 11/16/87(7  320) 

Time  Period 

Biginning  Date 
(   /   / 

-  Ending  Date 

-  /   /   ) 

[Enter   Selection    from    (1    -   4,    or    0    to   return)    :    ;) 


Figure  C.l  1     Report  module  menu  screen. 
Rerfer  to  the  Figure  C.l 2,  Figure  C.l 3  and  Figure  C.14 


65 


START 
(RPTSR) 


I 


Tell  "Selea" 


Get  'Selea" 


T 


(Create  temporary  file  for  conditions) 
Conditions  :  Type  =  RL,  IL,  CL,  TL 

Period  =  User  Entered 
Selection  =  All,  Class,  Sn 


Sum  QTY    of    "RL"  &  date  <  begdate 
Sum  QTY  o(  "il"  &ddie<  begdate 
Save  "Due/in' 


"^  c 

■'Ending' 

> 

Ending 

Printer  off 

Erase  temporary  files 


(Sort  by  transaction  type  -  Print) 


_L 


select  ne»t  transdrtion 


CLOSE  DATA8ASAES 


C     Return       ^ 


SN 


r 


Current 
actic 


,    Y 

/^Cld«  x^ 

N 

f         ' 

V       t       y^ 

Ending 
Class^'—l 

Sum  Quantity  (or  "RL" 


Sum  Quantity   for  "if 


Sum  Quantity   lor  "Tl  * 


Selea  ne»t  stock  no 


m. 


Sum  Quantity   lOf  "CL" 


Selea  ne«i  transaaion 


Figure  C.12  KFTiSK  (Transaction  status  report)  module  How  chart 
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START 
(RPOST) 


Tell  "Selea" 


Get  "Select" 


Create  ILMAST  for  all 


(^     Return       ^ 


Create  RLMAST  for  class 


Create  RLMAST  for  a! 


Create  RLMAST  for  Item 


Create  ILMAST  for  Item 


Create  RLMAST  for  class 


T 


Open  files 


I 


Erase  temporary  files 


Tell  "Send  to  printer  '" 


CLOSE  DATABASAES 


I 

(^     Return       ^ 


/  Tell   Calculating /^ 


Printer  ON 


Initialize  variables 


Erase  temporary  files 


CLOSE  DATABASAES 


(_Return_J) 


Select  request  transaa 


PRINT  by  STOCKN 
CLASS,  and  TOTAL 


Sort  by  days 
of  transaction 
(7,15,30.60.90) 


Ciau  End 


Sum  total  days  &  qty 


Sdme  Class 


I 


Selea  ne«t  class 


Select  next  transact 


FigTjre  C.13  RPOST  (Order  shipping  time  report)  module  flow  chart 
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START 
(RPSOR) 


/  Get  "Select"  /^ 


(Create  temporary  file  for  conditions) 
Conditions  :    From  stockout  dbf 

Period  =  User  Entered 
Selection  =  All,  Class,  Sn 


CLOSE  DATABASAES 

1 

Erase  temporary  files 

1 

(     Return       ) 

/  Tell    Calculating/ 


Printer  ON 


Q     Return       J 


Surnddyi  'or  '  ^90  " 


Selea  ne«t  ■>iocn  no 


Select  ne«<  traniaaion 


Figure  C.14  RPSOR  (Stx)ckout  report)  module  flow  chart 
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6.       ANALYSIS 

This  module  consists  of  three  procedures,  ANLEADT,  ANEOQ,  and  ANPROC 
and  is  used  to  calculate  the  average  lead  time  of  any  stock  item.  The  Average  Lead 
Time  is  used  in  calculating  safety  level,  reorder  point,  and  finally  economic  order 
quantity.  The  module  ANPROC  has  many  procedures  which  contains  zulu  date, 
average,  standard  deviation,  and  variance.  These  procedures  are  called  from  the 
ANALYSIS  module  whenever  needed.  The  data  flow  in  this  module  is  shown  in 
chapter  three  limited  analysis  section.  The  detailed  process  is  in  the  flow  chart  in 
Figure  4.5  The  first  screen  of  this  module  is  shown  on  the  Figure  C.15 


ANALYSIS   Of   TRANSACTION 


Today  :  11/16/87 


THIS  SYSTEM  USES  THE  FIXED  ORDER  SIZE  SYSTEM  WITH  PROBABILISTIC 
MODEL.  THE  FIXED  ORDER  SIZE  SYSTEM  IS  COMPLETELY  DEFINED  BY  THE 
ORDER  QUANTITY  (Q]  AND  REORDER  POINT  (B|.  THE  RISK  OP  STOCKOUT 
OCCURS  AFTER  REORDER  POINT.  TO  GET  [Ql,(Bl,  YOU  HAVE  TO  DECIDE 
SERVICE  LEVEL,  OR  STOCKOUT  COST  PER  UNIT.  THIS  SYSTEM  ASSUMED 
BACKOROER  CASE  WITH  SERVICE  LEVEL  INSTEAD  OF  LOSTSALES  CASE. 

Enter  stock  number  :     -  -   - 

Enter  time  period  you  want  to  test(  01/01/87  -  12/31/87  ) 

Begin    End  date 


Leave  BLANK  any  space  to  Exit 

Figure  C.I 5    Analysis  module  screen. 
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APPENDIX  D 
USER  S  MANUAL 

1.  INTRODUCTION 

The  proposed  system  is  for  the  manager  who  works  at  the  ROK  Army  division 
or  lower  level  logistics  management.  It  is  written  in  dBASEIII  Pius  programming 
language.  Routine  transaction  handling,  transaction  tracking,  reports  generation,  and 
limited  analysis  on  the  transaction  records  can  be  accomplished  with  this  system. 

The  proposed  system  consists  of  three  diskettes.  One  contains  the  software  code 
developed  in  this  thesis,  the  other  two  are  dBASEIII  plus  system  diskettes. 

a.  Requirements 

The  proposed  system  runs  on  the  IBM  PC  family  of  computers,  including  the 
XT  and  AT,  along  with  all  true  IBM  compatibles.  DBASEIII  PLUS  requires  the 
following; 

/.  The  dBASEIII  PLUS  program  disks  and  manual. 

2.  An  IBM  PC,  IBM  AT,  COMPAQ,  or  other  100  percent  IBM  PC- 
compatible  computer  with  a  monochrome  or  color  monitor. 

3.  MS-DOS  or  PC-DOS 

4.  At  least  256  k  of  memory.  5  J  2k  or  more  is  suggested. 

5.  Two  360k  floppy  disk  drives  or  one  360k  drive  and  a  hard 
disk  drive.    A  hard  disk  is  suggested. 

6.  A  printer  with  at  least  80-column  capability  is  suggested. 
[Ref  8:  p.  12] 

b.  Organization 

The  remainder  of  this  manual  is  divided  into  two  sections.  Getting  Started, 
describes  the  contents  of  the  proposed  system  and  how  to  install  it.  Working  with  the 
Proposed  System,  describes  how  to  operate  the  system. 

2.  GETTING  STARTED 

The  code  of  proposed  system  occupies  one  diskette  only.  Since  the  proposed 
system  is  not  compiled,  it  needs  the  dBASEIII  plus  system  diskettes.  The  proposed 
system  assumes  that  dBASEIII  plus  is  available  in  a  subdirectory  DBASEIII.  So 
install  Dbase  III  Plus  in  a  subdirectory  called  DBASEIII,  see  Dbase  III  manual  for 
instructions. 
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a.  Configuration 
Before  installing  the  system,  ensure  that  the  config.sys  file  in  your  system  contains  the 
following  commands: 

BUFFERS  =  15 
FILES  =  20 
If  your  system  does  not  contain  a  config.sys  file,  you  may  copy  it  from  the  Dbase  III 
system  diskette. 

You  also  need  a  config.db  file  in  your  dBASEIII  subdirectory  with  command 
"TYPEHEAD  =  20".  If  you  do  not  have  this  file,  copy  it  from  the  Dbase  III  system 
diskette.  If  you  have  config.db  add  the  command  and  erase  config.db  file  from  the 
proposed  system. 

you  can  create  either  or  both  files  using  the  DOS  editor  or  the  following 
commands; 

Copy  con  config.db 


TYPEHEAD  =  20 


You  may  want  to  get  into  the  system  directly  from  the  bootup.  If  this  is  the  case,  add 
the  following  commands  to  your  autoexec.bat  file. 


PATH  =  C:  ;  DOS;  dBASEIII 
CD  dBASEIII 
DBASE 
CD 
Now  you  are  ready  to  install  the  proposed  system  in  your  computer, 
b.  Summary  of  the  proposed  system  disk. 

The  thesis  system  disk  contains  the  following  programs  and  files; 

Exten-tion 

DBF     ASL  CUSTOMER  NORMAL     MASTER 

ANALYSIS  ANLEADT  TRREQLST   RPTSR 

SELECT  ANEOQ  REPORTS    TRBATCH 

PRINT  TRCANCEL  RPOST 

EDITMAST  CONTINUE  ANPROC 

TURNTOLC  MANAGE FL  PMMENU 

TRSTOKRD  PRINTER 


PRG 


RPSOR 
PMAIN 
TRSTOCK 


STOCKOUT  BATCH  PROPERTY 

AODPROP  EDITBAT  MANAGEQ 

ADDASL  TRTURNIN  RPEIS 

TRISSUE  EDITCUST  TRTUNLST 

TRANSACT  TRACKING  EDITPROP 

SETUP  ADDCUST  EDITASL 
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SCR 

EDBAT 
PROP 

BATCH 
EDITCUS 

FMT 

PROP 

EDITPRO 

TURNIN 

BATCH 

FRM 

TRANRPl 

TRANRP2 

NDX 

SNPROPER 
CSMAST 

CICUST 

OTHERS 

INVENTOR 

CAT 

ASL  EDITMAST  EDITPROP  MAST  CUST 

EDITASL  TURNIN  CANCMAST 

EDITPROP   EDITMAST  EDITCUST  EOQ  EDITBAT  MASKMENU 

EDITASL  CUST  MAST  ASL  CANCMAST 

TRANRP3  TRANRP<+  CUSTRPl  STOCKRPl 

INASL  CIBAT  STOCKOUT  SCTMAST  SNCIBAT 

MYFILE.MEM  CONFIG. DB  CONFIG.SYS  If  VOUf  dlSk  IS 

trussing  any  of  previous  files,  it  will  not  work. 

After  confirming  the  existence  of  all  the  files,  you  are  ready  to  install  the 
system  in  your  computer. 

It  is  recommend  that  you  install  in  a  subdirectory  called  CONTROL  in  the 
DB.ASE  III  subdirectory.  To  create  the  subdirecton.',  insure  that  you  are  in  tiie 
DBASE  III  directory  and  type; 

MD  CONTROL 
Change  directory  to    CONTROL'  by  typing  cd  dBASEIII  CONTROL  and  insert  the 
proposed  system  diskette  in  drive  A,  and  copy  all  files  into  C:  using  the  following 
commands; 

CD  dBASEIir  CONTROL 

COPY  A:*.*  C: 

CD 

Now  you  are  ready  to  start. 
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3.       WORKING  WITH  THE  PROPOSED  SYSTEM 

At  the  DBASE  III  '.'  prompt,  type  "DO  PMAIN"  to  get  the  main  menu  in 
Figure  D.l,  the  starting  point  of  the  system.  At  the  main  menu,  you  may  execute  one 
of  five  actions.  Options  I  thru  4  will  start  one  of  the  four  program  modules.  The  fifth, 
initiated  by  typing  5,  allows  you  to  change  the  system  date. 


Inventory       Manageaent       System 


^^ 

.►  . . 

^  . 

ft 

r. 

•j  1:  Transaction 

■nn 

-1  2:  Manage  file 

• 

■" 

Routine  transaction: 
Request  Cor  issue 
Receive  item 
Query  on  transaction 

Management  of  file: 
Add 

Edit  (delete, change) 
Query  on  files 

m 

MBB 

r 

■j  3:  Report 

•  •A  f 

-j  4:  Analysis 

- 

— 

Report  Generat] 
Transaction  st 
Stockout  repoi 
Essential  iten 
OST  report,  Fx 

Lon: 

:atus  report 

•t 

1  stockout 

ind  status 

Analysis  of 
Reorder  point 
Lead  time 
Requisition  Ob 
Safety  Level 

jective 

• 

(Enter  Selection  (1  -  4,  5  to 

char 

ige  date,  or  0  to  exit:  :] 

Today    is    11/18/87    (ZULU:7322) 


Figure  D.i     Main  menu(PMAIN). 

a.  Routine  transaction 

You  have  reached  this  point  by  choosing  option  1  from  the  main  menu.  This 
submodule  allows  to  enter  transactions  and  follows  the  same  procedures  as  the  division 
supply  support  action  among  logistics  support  command  and  organizational  units. 

There  are  nine  options  on  the  menu  screen,  see  Figure  D.l 

I.   Request  for  issue  from  a  customer 

This  is  the  procedure  to  accept  a  request  for  issue  from  your  customer  and 
you  reach  this  point  by  choosing  option  1  from  the  Routine  Transaction  Menu.  This 
screen  is  shown  in  Figure  D.3 

The  program  will  check  the  validity  of  the  customer  and  stock  numbers.  If 
either  is  invalid  the  program  will  not  accept  it  and  it  will  prompt  you  to  check  its 
validity  or  add  it  to  the  appropraite  file. 
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Transaction 


u  t  i  n  e 


Type  of  transaction 

-  Source 

1  :  Request  for  issue 

2  :  Issue  to  customer 

3  :  Request  for  turn-j 

to  Div 
from  Div 

in  to  Div 

Stock  number  : 
Customer  : 

1  :  KBceive  crom  uat. 

5  :  Request  for  issue  to  LSC 

6  :  Request  for  turn-in  to  LSC 

7  :  Cancel  RL  to  LSC 

8  :  Cancel  RD  to  Oiv 

9  :  Query  on  transaction 

Information 

Today  is 12/02/87 

(Zulu  :  7336) 

Last  VN  :  1500QM-0031-7317 
Last  Reqno  :  1500QM-0014-7317 

(Enter  Selection  from  (1  - 

9, 

or  0  to  return)  :1: ) 

Figure  D.2    Routine  transaction  menu  screen. 

EnteL  the  customer  and  stock  numbers  and  quantity  required.  The  menu 
will  prompt  you  for  additional  items,  and  the  program  will  generate  a  request  number. 
For  additional  customers  change  the  customer's  code  and  follow  the  same  procedure. 

2.  Issue  to  the  customer 

This  program  will  generate  an  issue  list  for  each  customer.  You  have 
reached  it  by  choosing  option  2  from  the  transaction  routines.  This  procedure  will  be 
executed  once  ever>'  day  .  The  system  will  integrate  all  of  the  request  for  the  day  to  get 
the  allowance,  and  consult  the  availability  of  the  item  in  stock.  If  an  item  is  short  to 
meet  the  requests,  it  will  follow  the  priority  to  issue,  then  report  the  request  for  issue  to 
the  logistics  support  command. 

You  may  get  a  print  out  if  you  so  desire.  Examples  of  the  reports  are 
shown  in  Figure  D.4 

3.  Request  for  turn-in 

This  procedure  handles  requests  for  turn-in  from  a  customer.  You  have 
reached  this  option  by  entring  3  from  the  Routine  Transaction  Menu.  The  screen  is 
shown  in  Figure  D.5,  Enter  the  required  elements  and,  when  prompted,  prepare  the 
printer.  An  example  of  the  output  is  presented  below  the  screen. 
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Requset   for   issue 


Today  11/16/87 


Requested  From  :  Division  aviation  bn 

Send  To  :  The  150  Infantry  Division 


Type  of  transaction  :  (RD) 
Request  for  Issue  to  Div 


Request  No  :  1509S4-0019-7320 
(  Customer's) 


Stock  Number  :  5555-55-555-5555 

Description  :Test  item5 

Unit  :Roll    Price  :      3.00  $ 

Quantity  :500 


Is  this  record  correct  ?  X 

Figure  D.3     Request  for  issue  from  customer  screen. 

4.  Receive  stock  item  from  LSC 

Select  option  4  from  the  Routine  Transaction  Menu  to  reach  this  point. 
Enter  the  elements  shown  on  the  screen  in  Figure  D.6  The  possible  output  is  below  the 
figure. 

This  procedure  is  complex  and  it  validates  the  customer  and  stock  number, 
checks  due-ins  and  due-outs,  and  delay  issue  of  the  item. 

5.  Direct  request  to  LSC 

Option  5,  6  will  work  for  special  request  for  issue  to  LSC.  This  procedure 
is  not  for  routine  transactions.  A  warning  will  be  issued  when  you  access  these  options. 

6.  Cancellation  of  request 

Options  7,  8  will  execute  users  cancellation  requests.  Upon  selection  of 
one  of  these  options  you  will  receive  the  screen  shown  in  Figure  D.7  After  you  enter 
the  data,  you  will  be  prompted  to  confirm  the  record  the  transaction  will  be  cancel. 
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REQOEST  FOR  ISSUE  Paqe   j_ 

To  :  The  3333  Logistics  Support  Command  °*^*  '  ^^^^"^/^"^ 
?rom  :  The  150  Infantry  Division 

Request  No  :  1500QM-0014-7317 

^   ,,f?°?^  number     Description    Onit  Quantity     Price     Total 

i  1111-11-111-1111  Test  iteml      Ba  105        10      in«;n 

2  8888-88-388-8888   Test  itemS      2a  ^ 


20        22        440 

Grand  Total  :$      1177 


Matrial  Management  NCO  :  ^__ Date  :      /    / 

Material  Management  Officer  : Date  :      /    / 


ISSUE  LIST 


Page 
Date  :  11/13/87 


Prom  :  The  150  Infanry  Division 
To  :  The  150  div  1501  regiment 

Vocher  No:1500QM-0029-7317 

No     Stock  number      Description   Onhand  Onit  Quant *y    Price      Total 

1  1111-11-111-1111  Test  iteml      SORRY!  Delay  delivery 

2  5555-55-555-5555  Test  itemS  7976  Roll       300         3       900 

3  8888-38-888-8888  Test  itemS      SORRY!  Delay  delivery 


Grand  Total  :$       900 


Matrial  Management  NCO  :  Date  :      /    / 

Material  Management  Officer  : Date  :      /    / 

Figure  D.4    Batch  process  examples. 

b.  File  management 

It  is  important  to  enter  the  Property,  ASL  and  Customer  files  data  first.  This 
will  limit  the  interruptions  due  to  missing  CI  and  SN.  To  save  the  necessary  data  in 
advance  or  during  the  routine  transaction  job,  choose  option  2  from  the  main  menu. 
It  will  display  the  screen  shown  in  Figure  D.8  From  this  menu,  you  can  add  customer 
and  stock  numbers  to  the  Customer,  Property,  and  ASL  files.  You  can  also  edit 
records  in  these  files  as  well  as  the  Master  and  Batch  Files. 

There  are  nine  options  on  this  screen,  these  are 

/.  Addition 

(1)  Customer.  These  programs  add  customer,  supplier  and  item  to  the 
appropraite  files.  On  selecting  the  number  1,  the  stock  number  shell  will  be  blocked, 
and  customer  shell  will  await  your  entry.  You  must  know  the  customer's  code,  usually 
the  four  digit  common  name  of  the  unit.  After  entering  the  code  of  the  customer,  the 
system  validates  the  record  in  customer  file  to  prevent  duplication.  Once  confirmed, 
the  next  screen  which  is  named  'customer  file'  in  Figure  D.9  will  appear.  Enter  the  data 
and  confirm  that  the  record  is  correct.   Your  confirmation  adds  the  record  to  the  file. 
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Request   for   turn-in 


Today 11/16/87 


From  :  5010  Regiment  2  Bn 

To  :  The  150  Infantry  Division 


Type  of  transaction  :  (TD) 
Request  for  turn-in 


Request  No  :  5012S4-0011-7320 


Stock  number  :   1111-11-111-1111 

Description  :   Test  iteml 
Unit  :    Ea         Reuseable?  :   Y 
Price:      10.00    Quantity    :      20 


Is  this  record  correct  ?  X 


Figure  D.5     Request  for  turn-in  from  customer. 


Receive   hewstock    from  LSC 


Today    is. .  .      11/16/87 


Receive   from    :The   3333   Logistics   support  Cmd 
Send   to    :The   150    Infantry  Division 


Type   of    transaction    : 
Receive    newstock    from   LSC 


Voucher    No    :    1500QM-0027-7320 
Request   Number: 


Stock   Number:llll-ll-lll-llll 
Description    :Test    iteml 

Unit    :    EA 
Quantity  95  Reusable? 

Price  10.00 


Is   this   record  correct   ?      X 
Figure  D.6    Receive  stock  item  from  LSC. 

To  add  a  property  record  in  your  property  file,  select  option  two.  On 
selecting  the  option  the  customer  shell  will  be  blocked  and  stock  number  sheU  will  be 
highlighted.    After  you  have  entered  the  stock  number  the  system  will  validate  your 
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Cancel  Request  for  issue  item 


Today  ..11/16/87(7320) 


Quantity 


Stock  number  :  2222-22-222-2222 
Customer  Code:  1500 
Request  number:  1500QM-0009-7305 

97    Price  :     10.00   Date  :(ll/0)/87 


Is  this  record  what  you  want  to  cancel?(Y/N)  N 


Figure  D.7    Cancellation  of  request  screen. 


Management      of      fil 


e  3 


Edit  files 


4. To  change  Customer  (CI) 
5. To  change  Property  (SN) 
6. To  change  ASL  (SN) 
7. To  change  Master  (SN+REQNO) 
8. To  change  Batch  (SN+REQNO) 

9. Query  on  files 


Addition 

1 

l.To  add  Customer  (CI) 
2. To  add  Property  (SN) 
3. To  add  ASL  (SN) 

Information 


Today  is  11/19/87 

Stock  number  :   XXXX-XX-XXX-XXXX 

(Or/And) 
Customer  code  : 


(Enter  Selection  (1  -  9,  or  0  to  go  to  mainmenu)  :1 


Figure  D.8     File  management  screen. 

entry.  If  accurate,  you'll  see  the  next  screen,  in  Figure  D.IO   Steps  similar  to  customer 
addition  are  followed.  However,  since  the  ASL  list  is  closely  related  to  the  property  list, 
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Customer 


File 


Today  is  11/16/87 


Customer  Code   2222 

Name   Test  unit 
Address   Example  city 

700-11   Zip  code 


Priority   6 


Fund  : 


0.00   $  Allowed 
0.00   $  Expediture 


Is  this  record  correct  ?   Y 

Figure  D.9    Customer  addition  screen. 

the  program  wiU  ask  you  whether  the  item  is  also  an  ASL  item  and  will  added  to  the 
ASL  file  if  necessary. 


Property   Book   file 


Today 


11/16/87 


Stock  number 

Serial  NO 

Description 

• 
• 

• 

• 
• 

8989-89-898-9898 
Example  item 

Unit 

'• 

ball    Class  :  8 

On  hand 

• 
• 

100 

Price 

• 
• 

9.12  $ 

Is  this  combat 

essential  item  ?  :  N 

Is   this   record   correct    ?    :      X 
Figure  D.IO    Property  list  addition  screen. 
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Another  method  to  add  an  ASL  is  to  add  it  directly  to  the  ASL  file  by 
choosing  option  3.  It  is  suggested  that  you  use  this  method  in  the  case  of  a  newly 
allowed  ASL  item.  The  screen  for  this  option  is  shown  in  Figure  D.ll 


Authorized   storage  list  file 


Today  is  12/02/87 


Stock  number 


:  1111-00-111-0001 


Reorder  Point         :   100 
Safety  Level  :    20 

Requisition  Objective  :   5000 

Order  Shipping  Time    :   12   days 

Resource  control  number  :  1122 


Is    this    record   correct    ?    :      X 
Figure  D.l  I    ASL  list  addition  screen. 

2.    Editing  or  Deletion  of  an  entry 

There  are  five  options  in  this  process.  Options  4,  5,  6  are  equivalent  to 
option  1,  2,  3  respectively.  Option  7  allows  you  to  change  type  TL  records,  other 
records'  types  are  automatically  saved  through  the  transaction  process.  Option  8 
allows  edits  of  any  type  of  transactions  so  use  it  carefully. 

(1)  Customer.  From  the  screen  'management  of  file'  in  Figure  D.8,  select 
option  4,  You  will  be  asked  to  enter  the  customers  code  that  you  want  to  change  or 
delete.  On  entering  the  code  the  program  retrieves  the  customer  record  from  the 
customer  file  and  displays  the  next  screen  in  Figure  D.l 2  Edit  the  screen  and  exit  by 
pressing  the  CONTROL  and  END  keys  at  the  same  time. 

(2)  Property  and  ASL  This  procedure  is  almost  same  as  the  option  4. 
Take  option  5  for  property  and  6  for  ASL.  The  edit  screen  for  the  ASL  list  is  shown  in 
Figure  D.l 3 
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Edit  or  Delete  CUSTOMER  file 


Today  11/16/87 


Customer  :  2222  code 

Priori 

ty  : 

6 

Test  unit 
Example  city 
700-11 

Description 

Address 

Zipcode 

Fund  allwed  :       0.00 

0.00    Expend 
0.00   On  hand 
Last  edit 

date 

11/16/87 

(Insert  mode)  :  Ins 
(Delete)      Character  :Del 
Field:  *Y   Record:  *U 


(Record)  Next  :  PgDn 
Previous  :  PgUp 
(Done/Save)  :  "End   Abandon  :Esc 


Figure  D.12    Customer  record  editing  screen. 


Edit  Authorized  Storage  List  file 


Today  11/29/87 


Stock  number  :   2222-22-222-2222 


Reorder  Point  :    80 
Safety  Level  :    30 
Requisition  Objective  : 


Order  shipping  time 
Date 
180 


Resource  control  number  :   2222 


(Insert  mode)  :  Ins 
(Delete)      Character  :Del 
Field:  *Y   Record:  *U 


21  days 
09/12/87 


(Record)  Next  :  PgDn 
Previous  :  PgUp 
(Done/Save)  :  *End   Abandon  :Esc 


Figure  D.13    ASL  list  record  editing  screen. 
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(3)  Master  file  records.  This  procedure  edits  the  master  file  records.  It 
requires  you  to  enter  the  stock,  number,  the  customer's  ID,  and  the  date  of  the 
transaction.   Its  screen  is  shown  in  Figure  D.14 


Edit/Change  Master   file 


Today 11/29/87 


Stock  Number  :   3333-33-333-3333 
Customer  code  :   1504        Action  Type  :   RD 


Request  Number  :   1500QM-0032-7333 

1504S4-0001-7330 


Quantity  : 
Price  : 


10 
102.$ 

Date  :  11/29/87 


Customer 's 
Reusable  ?  :   T 


(Insert  mode)  :  Ins 
(Delete)     Character  :Del 
Field:  *Y   Record:  *U 


(Record)  Next 

Previous 

(Done/Save)  : 


;  PgDn 
;  PgUp 
'End  Abandon  :Esc 


Figure  D.14     Master  file  record  editing  screen. 

(4)  BATCH  file  records.  Sometimes  you  need  to  change  records  akeady 
entered  in  the  ASL  file  through  transaction  routine.  This  procedure  is  more  generous 
than  option  7.  You  may  enter  the  information  you  have,  when  you  get  the  screen  in 
Figure  D.15,  you  will  fmd  out  appropriate  record  by  using  the  function  keys  which  are 
given  below  the  screen. 
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Edit(change  or  delete)  Batch  file 


Today 11/29/87 


Stock  number  :  3333-33-333-3333 

Voucher  number  :  1504S4-0001-7330 

Customer  Code  :  1504 

Type  of  action  :     RD  Posted  : 

Quantity  :        10  Unitcost  :   102.00  $ 

Date  :  11/29/87 


(Insert  mode)  :  Ins 
(Delete)     Character  :Del 
Field:  *Y   Record:  *U 


(Record)  Next 

Previous 

(Done/Save)  : 


;  PgDn 
PgUp 
'End  Abandon  :Esc 


Figure  D.15    Batch  file  record  editing  screen. 

c.  Reports  generation 

.  Four  Types  of  reports  are  available  in  the  system.  Each  report,  other  than 
combat  essential  item  stock-out  report,  may  be  generated  by  stock  number,  by  material 
class,  and  all.  You  can  get  both  printed  and  screen  reports.  The  menu  screen  is 
presented  in  Figure  D.16 

/.    Transaction  status  report 

To  get  the  transaction  status  report,  select  option  I  and  enter  appropriate 
time  period.  Select  any  option  you  want  fi-om  the  screen  in  Figure  D.17  For  example, 
if  you  want  to  get  the  transaction  status  reports  on  material  class  2,  select  option  2. 
You  will  be  asked  to  enter  the  material  class,  and  the  type  of  report,ie  screen  or  print 
out.  It  is  recommended  that  you  postpone  requesting  the  print  out  till  you  check  the 
output  on  the  screen. 
Examples  of  each  option  are  presented  in  Figure  D.18 

2.   Other  Reports 

Other  reports  can  be  obtained  using  the  same  procedure  as  the  transaction 
status  report.  Select  2  for  stock-out,  3  for  order  shipping  time,  4  for  combat  essential 
item  stock-out  reports. 


83 


REPORTS 


Type  of  Reports 

1  J 

Transaction  Status 
(DA  form  3133) 

Report 

2  : 

Stoclcout  Report 
(DA  form  3184) 

3  t 

OST  Report 
(DA  £orm  318S) 

4  t 

Combat  Essential  Item 
Stoclcout  Report 
(DA  form  3186) 

Information 

1 

Last  TSR  Report  Date 
11/12/87 

Today 11/16/87(7320) 

Time  Period 

Biginning  Date 
(  ./   / 

-  Ending  Date 

-  /  /   ) 

[Enter    Selection    from    (1   -   4,    or    0    to   return)    :    t] 


Figure  D.16    Reports  generation  menu  screen. 


Sales  Tracking 

Options 

■ 

1.   Detail  Sales 

2.   Summary  Sales 

3.   Detail  Customer  Sales 

4.   Summary  Customer  Sales 

5.   Return  to  main  menu 

Enter  Option:  1 

Enter  period  for  sales  tracking  (01/01/87  ■ 

-  01/01/8  ) 

Figure  D.17    Transaction  status  report  option  menu. 

d.  Analysis 

From  the  main  menu  screen  select  option  4.    When  you  get  the  screen  in 
Figure  D.19  enter  the  stock  number  you  want  to  analyze  and  the  time  period. 
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Transact  Status  Report                      Page   1 

Date  :  11/06/37 

From  :  The  150  Infanry  Division 

To  :  The  3333  Logistics  Supprot  Command 

From  To 

01/01/37  -  01/01/88 

No     Stock  number   Description  D/Ibeg  Req'st  Cancel  Rec've  Turnin  D/Inow 

1  1111-11-111-1111  Test  iteml  0      950      0       0       0     950 

Class  1  

Subtotal  0      950      0      0       0     950 

1  2222-22-222-2222  Test  item2  0     970      0      0       0     970 

Class  2  

Subtotal  0      970       0       0       0     970 

1  3333-33-333-3333  Test  item3  0        0       0       0       0       0 

Class  3  

Subtotal  0       0      0      0      0       0 

1  8888-88-883-8888  Test  itemS  0        0       0     264       0    -264 

Class  3  

Subtotal  0       0      0     264       0    -264 

1  9999-99-999-9999  Test  item9  0        0       0      24       0     -24 

Class  9  

Subtotal  0       0      0      24      0     -24 


Matrial  Management  NCO  :  Date  :  / / 

Material  Management  Officer  :  Date  :  / / 

Stockout  Report  Page   1 

Date  :  11/06/37 

To  :  The  3333  Logistics  Supprot  Command 
From  :  The  150  Infanry  Division 

No     Stock  number      Total        30days       60days       90days     120days 

Total   Cost   Item   Cost   Item   Cost   Item   Cost   Ite^i   Cost 

1    1111-11-111-1111  0000000000 

Class    1  

Subtotal  0000000000 

1  2222-22-222-2222    370    740    370    740      0      0      0      0      0      0 
Class  2  

Subtotal     370    740    370    740      0      0      0      0      0      0 

1  5555-55-555-5555   1000   3000   1000   3000      0      0      0      0      0      0 
Class  5  

Subtotal    1000   3000   1000   3000      0      0     0      0      0      0 

1  8388-88-388-8888    100   2200    100   2200      0      0      0      0      0      0 
Class  3  

Subtotal     100   2200    100   2200      0     0      0      0      0      0 


Matrial  Management  NCO  :  Date  :  / /. 

Material  Management  Officer  :  Date  :  / /. 


Figure  D.18    Examples  of  Transaction  status  reports. 
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The  time  period  will  effect  the   output  results.    Choose  longer  period  to 
increase  the  confidence  in  the  results. 


ANALtSIS   Of   TRANSACTION 


Today  :  11/16/87 


THIS  SYSTEM  OSES  TBS  FIXED  ORDER  SIZE  SYSTEM  WITH  PROBABILISTIC 
MODEL.  THE  FIXED  ORDER  SIZE  SYSTEM  IS  COMPLETELY  DEFINED  BY  THE 
ORDER  QUANTITY  [OJ  AND  REORDER  POINT  [SI.  THE  RISK  OP  STOCKOUT 
OCCURS  AFTER  REORDER  POINT.  TO  GET  [Ql,(Bl,  YOO  HAVE  TO  DECIDE 
SERVICE  LEVEL,  OR  STOCKOUT  COST  PER  UNIT.  THIS  SYSTEM  ASSUMED 
BACKORDER  CASE  WITH  SERVICE  LEVEL  INSTEAD  OF  LOSTSALES  CASE. 

Entar  stock  nuabcr  :     ... 

Enter  tia«  p«riod  you  want  to  t«st(  01/01/87  -  12/31/87  ) 

B«qin    End  data 


Laava  BLANK  any  spaca  to  Exit 

Figure  D.I 9    Analysis  start-up  screen. 

You  may  try  as  many  time  as  you  want  with  different  possible  data.  However  you 
should  select  one  method  only.  If  you  do  not  enter  an  element,  default  data  will  be 
assumed  (ie,  service  level  85%  and  holding  cost  rate  15%  of  the  annual  inventor}')- 
After  entering  data  into  the  screen  in  Figure  D.20,  the  program  will  display  the  results 
and  vdU.  instruct  you  on  how  to  save  them.  The  result  screen  is  shouTi  in  Figure  D.20 
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INFORMATION      Cor    ANALYSIS 


You   salected    stock   nvunber  :    3833-88-383-3838 

(Tesc    iceaS,    UniCiSa.  Class:3    ) 

Purchasing  prics(P)  :  22  S/Ea 

Annual  OemandtRJ  :  100  EaZ/aar 

L«ad  cim«(OST)  in  Monch  :  0  Month (s) 

Ordering  cost(C)  :     0.00  S/order 

Molding  cost  unit  per  year  :   0.00  % 
(Select  one  oC  these) 

Stocicout  costdf  Known)  :     0.00  S/unit  Select?  M 

Service  Level  in  year  :   0.0000   *      Select?  Y 


[PRESENT]  Reorder  point  :15  Safety  Level  :10 

Requisition  objective  :50      Lead  Time  :  14 


Is  this  record  right? (Y/N):  X 

Figure  D.20    Variable  entering  for  analysis. 

e.  Query    - 

Two  types  of  queries  are  available.  One  is  transaction  tracking,  and  the  other 
querries  on  a  customer  or  present  status  of  a  stock  number. 

For  the  management  purposes  the  transaction  records  on  a  stock  item  or 
customer's  records  may  be  monitored.    You  may  ask  for  detailed  or  summurized 
transaction  record.   Select  option  9  from  transaction  menu  screen.   After  the  screen  on 
Figure  D.21  comes  up,  select  any  option. 
For  example: 

If  you  want  a  customer's  transaction  detailed  record,  select  option  1.  You  will 
be  prompted  for  type  of  output, ie  screen  or  print  out. 

If  you  need  to  know  the  present  inventory  status  on  a  stock  number,  material 
class,  or  all  items,  select  option  9  from  the  file  management  menu  on  Figure  D.8  The 
next  procedure  is  the  same  as  the  transaction  tracking.  The  options  are  presented  on 
Figure  D.22 
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Sales  Tracking 


Options 

1.  Detail  Sales 

2.  Summary  Sales 

3.  Detail  Customer  Sales 

4.  Summary  Customer  Sales 

5.  Return  to  main  menu 
Enter  Option:  1 


Enter  period  for  sales  tracking  (01/01/87  -  01/01/3  ) 


Figure  D.21     Transaction  tracking. 


Query  on  Stock  number 


Options 

1.  Stocic  number 

2.  Class  Enter  Class  Number:   7 

3.  All  [0]    for   class   10 

4.  Return  to  main  menu 
Enter  Option:    2 


Figure  D.22    Query  on  stock  number. 
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APPENDIX  E 
PROGRAM  LISTING 

»         MAIN  MENU 
a.  PMAIN 

***********************************  ^A'^yr**************************** 
*:-k-k-k-k-k-k-k-k-k-k-k*-k*-k*:-k-k-k-kk-k-k  PMAIN. PRG        •A*****************;^*?!!:****** 

*  Module  name....:  PMAIN. prg  * 


^iN.pi 
-k,  Tc 


*  Author :  Park,  Taeyong  * 

*  Date :  Aug  10.  1987  * 

*  Purpose :  Main  menu  of  Inventory  Management  System  *" 

*  for  Republic  of  Korea  Army  Infantry  Division  * 

*  Called  by :  * 

*  Modules  called  :  PMMENU. prg, MANAGEFL. prg, TRANSACTION. prg  * 

*  REPORTS. prg, ANALYSIS. prg  * 

*  Variales  used. . :  * 

*  Public.:  MCI  holds  customer  identification  code  * 

*  STOCKN  holds  stock  number  which  identifies  item    * 

*  TODAY  holds  current  system  date  * 

*  CHECK  holds  condition  * 

*  ZULU  holds  Zulu  date  which  is  converted  * 

*  REQNOl  holds  request  number  which  issued  the  last  * 

*  VNl  holds  voucher  number  issued  the  last  * 

*  MTYPE  holds  type  of  transaction 

*  VAR  holds  the  value  of  variance  * 

*  STD  holds  the  value  of  standard  deviation  * 

*  MLEADT  holds  the  value  of  leadtime  of  any  item 

*  Local..:  Z1DAY,Z2DAY,Z3DAY 


:1c 


*  Close  all  open  files  and  clear  all  variables . 

CLEAR  ALL 

CLOSE  ALL 

*  Set  working  environment. 

SET  TALK  OFF 

SET  BELL  OFF 

SET  HEADING  OFF 

SET  HELP  OFF 

SET  MENU  OFF 

SET  SAFETY  OFF 

SET  STATUS  OFF 

* ,  ,  ,  , * 

* This  sets  up  the  CRASH.TXT  file  which  records  all  * 

* actions  so  that  if  the  system  crashes,  the  database....* 

* can  be  recreated.   This  file  will  be  deleted  if * 

* the  system  terminate  normally * 

*SEt"aLTE* to  CRASH 

*SET  ALTE  ON 

* Define  the  public  variables  which  can  be  used  any  module....* 

* without  redefine * 

Public  MCI , STOCKN , CHECK , ZULU , REQNOl , VNl , MTYPE , VAR , STD , MLEADT 

* Restore  memorized  variables  from  memory  file.* 

Restore  from  MYFILE.mem 

Store  space(4)  to  MCI , ZULU, MTYPE 

STOCKN  =  space(16) 

CHECK  =  SPACE(l) 

* Create  memory  variable  for  today ' s  date . . * 

TODAY  =  dateO 

* Convert  current  date  into  zulu  date . . * 

Set  century  on 
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ZDAY  =  DTOC( TODAY) 

Store  "l/l/''  +  substr(zday,7,4)  to  ZIDAY 
22day  =  TODAY  -  ctod(Zlday)+l 
Store  substr(2DAY,10)+str(Z2DAY,7,3)  to  Z3DAY 
Store  substr(23DAY,l,4)  to  ZULU 
Set  century  off 
DO  WHILE  .T. 
CLEAR 
DO  PMMEMU 
DO  WHILE  .T. 
i=0 

DO  WHILE  i=0 
i=INKEY() 
(?  22,64  SAY  "" 
IF  UPPER(CHR(i))$"012345" 

EXIT 
ENDIF 
i=0 
EMDDO 

@  22,64  SAY  UPPER(CHR(i)) 
IF  .NOT.  CHR(i)$"5" 

EXIT 
ENDIF 

(a  24,38  GET  today 
READ 

Set  century  on 
ZDAY  =  DTOC(TODAY) 

Store  "l/l/"+substr(zday,7,4)  to  ZIDAY 
Z2day  =  TODAY  -  ctod(Zlday)+l 
Store  substr{ZDAY,10)+str(Z2DAY,7,3)  to  Z3DAY 
Store  substr(Z3DAY,l,4)  to  ZULU 
Set  century  off 
(?  24,38  SAY  today 
(a  24,53  SAY  ZULU 
ENDDO 

DO  CASE 

Case  CHR(I)  =  '1' 
DO  TRANSACT 

Case  CHR(I)  =  '2' 
DO  MANAGE FL 

Case  CHR(I)  =  '3' 
DO  REPORTS 

Case  CHR(I)  =  '4' 
DO  ANALYSIS 

Case  CHR(I)  =  '0' 

Release  All  like  M* 

Release  TODAY, i, CHECK, STOCKN 

Save  to  MYFILE.mem 

SET  TALK  ON 

SET  BELL  ON 

SET  HEADING  ON 

SET  HELP  ON 

SET  MENU  ON 

SET  SAFETY  ON 

SET  STATUS  ON 

CLEAR  ALL 

EXIT 
OTHERWISE 

?  chr(7) 
ENDCASE 
ENDDO 

SET  ALTE  OFF 
CLOSE  ALTE 
ERASE  CRASH.txt 
CLOSE  DATABASES 
CLEAR 
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* When  done,  exit  from  the  system 

RETURN 

* T *  Eof:  PMAIN.prg  * * 


b.  PMMENU 

*********7^******A*********************!"C******7"C  ***************** 

*  Module  name....:  PMMENU. prg  * 

Author :  Park,  Taeyong  ^ 

Date :  AUG  10,  1987  * 

Purpose :  Provide  Menu  screen  for  the  PMAIN  program  * 

Called  by :  PMAIN.prg  * 

Module  called. . :  None  * 

Variable  Used..:  Today.-holds  current  system  date  * 

*********************^****************^*********7 


* 
* 
* 
* 
* 
* 
** 


c** ******************* 


(a  1,9  TO  3,69 

(a  4,1  TO  23,77  DOUBLE 

(?  6,3  TO  12,37 

(?  5,4  TO  7,20  DOUBLE 

@  6,5  SAY  SPACE(15) 

@  6,41  TO  12,75 

(a  5,42  TO  7,59  DOUBLE 

(a  6,43  SAY  SPACE(16) 

(a  14,3  TO  21,37 

(a  13,4  TO  15,20  DOUBLE 

(a  14,5  SAY  SPACE(15) 

(a  14,41  TO  21,75 

(a  13,42  TO  15,59  DOUBLE 

(a  14,43  SAY  SPACE(16) 

(a  5,2  SAY  CHR(176)+CHR(176) 

(a  6,2  SAY  CHR(176 

(a  7,2  SAY  CHR(176 

(3  8,2  SAY  CHR(176 

(a  9,2  SAY  CHR(176 

(a  10,2  SAY  CHR(176 

(a  11,2  SAY  CHR(176 

(a  12,2  SAY  CHR(176 

(a  13,2  SAY  CHR  176)+CHR(176) 

(a  14,2  SAY  CHR(176 

(a  15,2  SAY  CHR{176 

(a  16,2  SAY  CHR(176 

(a  17,2  SAY  CHR  176 

(a  18,2  SAY  CHR(176 

(a  19,2  SAY  CHR  176 

(a  20,2  SAY  CHR(176 

(a  21,2  SAY  CHR(176 

(a  22,2  SAY  REPLICAtE(CHR(176) 

(a  21,76  SAY  CHR(176' 

(a  20,76  SAY  CHR  176 

(a  19,76  SAY  CHR(176 

(a  18,76  SAY  CHR(176 

(a  17,76  SAY  CHR(176 

(a  16,76  SAY  CHR(176 

(a  15,76  SAY  CHR(176 

(a  14,76  SAY  CHR(176 

(a  13,60  SAY  REPLICATE(CHR(176 

(a  12,76  SAY  CHR(176" 

(a  11,76  SAY  CHR(176 

(a  10,76  SAY  CHR(176 

(a  9,76  SAY  CHR(176 

(a  8,76  SAY  CHR(176 

(a  7,76  SAY  CHR  176' 

(a  6,76  SAY  CHR(176' 

(a  5,60  SAY  REPLICATE(CHR(176' 

(a  5,21  SAY  REPLICATE(CHR(176' 

(a  6,38  SAY  REPLICATE(CHR(176' 

(a  7,38  SAY  REPLICATE(CHR(176' 


,75) 


),17) 


il] 
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(a  8,38  SAY 
(§9,38  SAY 
(?  10,38  SAY 
@  11,38  SAY 
@  12,38  SAY 
@  13,21  SAY 
@  14,38  SAY 
@  15,38  SAY 
(a  16,33  SAY 
(?  17,38  SAY 
@  18,33  SAY 
(§  19,38  SAY 
@  20,38  SAY 
(§  21,38  SAY 
(§2,12  SAY 
(3  6,6  SAY  " 
(a  6,44  SAY 
@  14,6  SAY 
(a  14,44  SAY 
(a  8,44  SAY 
(a  9,45  SAY 
(a  10,45  SAY 
(a  11,45  say 
(3  8,6  SAY  ^' 
(?  9,7  SAY  " 
(a  10,7  SAY 
@  11,7  SAY 
(a  16,6  SAY 
(a  17,7  SAY 
(a  18,7  SAY 
(a  19,7  SAY 
(a  20,7  SAY 
(a  16,44  SAY 
(a  17,45  SAY 
(a  18,45  SAY 
(a  19,45  SAY 
(a  20,45  SAY 
(a  22,8  SAY 
(a  24,29  SAY 
@  24,38  say 
(a  24,53  SAY 
STORE  ""  TO 
(a  22,63  GET 
RETURN 


176 

176' 


176 
176' 


REPLICATE(CHR(176) ,3) 
REPLICATE(CHR(176),3) 

REPLICATE(CHR(176) ,3' 

REPLICATE(CHR(176 

REPLICATE(CHR< 

REPLICATE (CHR< 

REPLICATE  CHR(176' 

REPLICATE  CHR( 176 

REPLICATE(CHR( 

REPLICATE(CHR( 

REPLICATE(CHR(176' 

REPLICATE(CHR(176' 

REFLICATE(CHR(176' 

REPLICATE(CHR(176! 
"Inventory 
1:  Transaction" 
"2:  Manaae  file  " 
"3:  Report  " 

"4:  Analysis" 
"Management  of  file:" 
"Add  ^ 

"Edit  (delete, change)" 

"Query  on  files" 
Routine  transaction:" 
Request  for  issue  " 
"Receive  item" 
"Query  on  transaction" 
"Report  Generation:" 
"Transaction  status  report" 
"Stockout  report" 
"Essential  item  stockout" 
"GST  report,  Fund  status" 

■'Analysis  of" 
'Reorder  point" 
'Lead  time" 

'Requisition  Objective" 
'Safety  Level" 
election 
is  "  +  " 


nagement   System' 


"Enter  = 
"Today 
TODAY 
ZULU 
SELECT 
SELECT  PICT 


(1  -  4,  5  to  change  date,  or  0  to  exit 
"+"(ZULU:     )  " 


■*  Eof:  PMMENU.prg  *■ 
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2.        ROUTINE  TRANSACTION 
a.  TRANSACTION  MENU 

*:ir-k-k-k-k-k-k-k-k*:-k:k-k-k-kir-k-k-*:  TRANSACT  .  PRG  *: -k -k -k ■k -k -k :k -k -k -k -k -k -k -k ir -k -k -k -k -k i-: 

■kkk-kkkkk-kkk-kkkk-kkkkk-kk-kkkkkkk-kkkkkkkkkkk-k-kk-kkk-kkkkkkk-kkk-k-k-k-kkk-kkkkkkkkk 

*  Ilodule   name....:    TRANSACT. prg  * 
^  Author :    Park,    Taeyong  * 

*  Date :  Aug  20.  1987  * 

*  Purpose :  Record  all  kind  of  transaction  into  the  * 

*  Batch, Master  file.  * 

*  Called  by :  PMAIN.prg  * 

*  Modules  called  :  TRBATCH.Drg,TRCANCEL .prg,TRSTOCK.prg  * 

*  TRREQLST'.prg,TRSTOKRD.prg,TRTURNIN.prg  * 

*  TRTUNLST.prg,TRTUNLC.prg  * 

*  Variales   used. 

*  Public 

*  Local 


STOCKN,  MTYPE,  MCUST,  MCI,  MREQNO  * 

MCIl,  MCI2,  MHOST,  MTYPEA,  MTITLE,  MISCM,  MCDESCl ,  * 
*  MCDESC2  * 

ir:kk-kk-kkkkkk-kk-kk-k'k-k-k-kk-kkkkki<:-kk-kkk-k-k-kk-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-kk-k-kkk-k-kkk-k-k-kk-k 


m 


DO  WHILE  .T. 

Mcil  =  space(4^ 

Mci2  =  space(4, 

Mtitle  =  space(26) 

Mhost  =  space  (50,' 

Mcust  =  space(50' 

Mtype  =  space(2) 

Mtypea  =  space ''' 

Stockn  =  space', 

Mcdescl  =  space(3d^ 

McdescZ  =  space (30' 

Mreqno  =  space(16) 

Miscm  =  "T'' 

CLEAR 

(?  1  15  TO  3,55  double 

(?  4,1  TO  23,77 

(a  6,3  TO  21,38 

(?  5,4  TO  7,28 

(§6,5  SAY  SPACE  (23) 

(?  6,41  TO  12,75 

(?  5,42  TO  7,59 

{?  6,43  SAY  SPACE (16) 

(a  14,41  TO  21,75 

@  13,42  TO  15,59 

@  14,43  SAY  SPACE (16) 

(§2,17  SAY  "Transaction   routine' 

(a  6,6  SAY  "  Type  of  transaction" 

(a  6,44  SAY  "Source" 

(a  14,44  SAY  "Information" 

Request  for  issue  to  Div" 
Issue  to  customer  from  Div" 
Request  for  turn-in  to  Div" 
Receive  from  LSC" 
Request  for  issue  to  LSC" 
Request  for  turn-in  to  LSC" 
Cancel  RL  to  LSC" 
Cancel  RD  to  Div" 

_  _-,.  _  -  Query  on  transaction" 

(a  8,  42  SAY  "Stock  number  :  " 

(a  10,42  SAY  "    Customer  :  " 

SET  COLOR  TO  N/W 

(a  8,56  SAY  STOCKN  PICT  "9999-99-999-9999" 

(a  10,56  SAY  MCI  PICT  "9999" 

SET  COLOR  TO 

(a  16,47  SAY  "Today  is  " 

(a  16,60  SAY  today 

(a  17,51  SAY  "(Zulu  :  "+zulu+")" 

(a  19,47  SAY  "Last  VN  :  "+vnl 
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@ 

8 

6 

SAY 

1 

(a 

9 

6 

SAY 

2 

(a 

11 

6 

SAY 

3 

(a 

12 

6 

SAY 

4 

(a 

14 

6 

SAY 

5 

@ 

15 

,6 

SAY 

6 

(a 

17 

,6 

SAY 

7 

(a 

18 

6 

SAY 

8 

(a 

20 

,6 

SAY 

9 

(?  20,44  SAY  "Last  Reqno  :  "  +  reqnol 

@  22,12  SAY  "Enter  Selection  from  (1  -  9,  or  0  to  return) 

STORE  ""  10  SEL 

(a  22,59  SAY  SEL 

* The  following  lines  are  for  select  loop 

i=0 

DO  WHILE  i=0 

i=INKEY() 

(?  22,59  SAY  "" 

IF  UPPER(CHR(i))$"0123456789" 
(?  22,59  SAY  CHR(I) 
EXIT 

END  IF 

i=0 
ENDDQ 

DO  CASE 

Case  CHR(I)  =  '4' 
MTYPE  =  "IL" 

Mtitle  =  "Receive  newstock  from  LSC" 
Mhost  =  "Receive  from  :" 
Mcust  =  "Send  to  :" 
Mtypea  =  mtitle 
Mci2  =  "1500" 

(?  8,  56  GET  Stockn  pict  "9999-99-999-9999" 
(a  10,56  SAY  Mci2  pict  "XXXX" 
Read 

(a  8,  56  SAY  Stockn 
(?  10,56  SAY  Mci2 
DO  TRSTOCK 


Case  CHR(I)  =  '3' 
MTYPE  =  "TD" 
mtitle  =  "Request  for 
mhost  =  "Request  from 
mcust  =  "     Send  to 
mtypea  =  mtitle 
mci2 
(?  8, 
@  10 


turn-in' 


Read 
@  8, 
@  10, 


=  "1500" 

56  GET  Stockn  pict  "9999-99-999-9999" 
GET  Mcil  pict  "XXXX" 


56 


56 

56 


SAY 
SAY 


Stockn 
Mcil 


DO  TRTURNIN 


Case  CHR{I)  =  '1' 
MTYPE  =  "RD" 
Mci2  =  "1500" 

56  GET  Stockn  pict  "9999-99-999-9999" 

56  GET  Mcil  pict  "XXXX" 


@  8, 
@  10, 
Read 
(?  8, 
(3  10, 


56  SAY  Stockn 
56  SAY  Mcil 


DO  TRSTOKRD 

Case  CHR(I)  =  '2' 
MTYPE  =  "ID" 

(a  8,  56  SAY  "XXXX-XX-XXX-XXXX" 
(a  10,56  SAY  "XXXX" 
DO  TRBATCH 

Case  CHR(I)  = 
MTYPE  = 
Clear 

(a  10,10  to  17 
(a  12,15  SAY 
@  13,15  Say 
(a  14,13  Say 
(a  15,15  Say 
(a  17,15  Say 
GET  CHECK  pict 
Read 


'5' 
"RL' 


,65 

Your  selection  (RL)  must  be  resulted 
type  of  transaction.   It  means  this 
is  conducted  automatically 


continue  this 

Do  you  want  to 
II I II 


if  you  eagerly 
continue(Y/N)? 


However 
to 


want 
11 . 


from  other" 
module  " 
you  may" 
do" 
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If  CHECK=  "Y" 

DO  TRREQLST 
Endif 
Loop 

Case  CHR(I)  =  '7' 

MTYPE  =  "CL' 

(a  8,  56  GET 

(?  10,56  GET 
Read 

(a  3,  56  SAY 

(?  10,56  SAY 


Stockn  pict  "9999- 
Hcil  pict  "XXXX" 

Stockn 
Hcil 


99-999-9999' 


Do  TRCANCEL 


Case  CHR(I)  = 
MTYPE  = 
(?  8,  56 
(B  10,56 
Read 
@  8,  56 
(?  10,56 


'6' 

II  TT  II 

GET  Stockn  pict  "9999-99-999- 
SAY  Hcil  pict  "XXXX" 


9999' 


SAY 
SAY 


Stockn 

Hcil 


Do  TURNTOLC 


Case  CHR(I)  = 
HTYPE  = 


Case 


CASE 


ENDCASE 

ENDDO 

RETURN 

jif 


"CD" 

CHR(I)=  '9' 
HTYPE="QUERY" 
Do  Tracking 

1=27  .OR.  CHR(I)  = 
?  Chr(7) 
CLEAR 
EXIT 


Eof:  Transact. prg 


b.  TRSTOCKRD 

■k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-kir-k  TRSTOCKRD  .  PRG      kkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkki^-kkk^^kkkk-kk-kki^kkk-kk-k-kkk-kkkkkkkk 

*  Module  name....:  TRSTOKRD.prg  * 

Author :  Park,  Taeyong  * 

Date :  Aug  28.  1987  * 

Purpose :  Record  request   r  issue  transaction  from         * 

customer  into  bacch  file.  * 


Called  by 

Modules  called 
Variales  used. . 

Public. 

Local. . 


TRANSACTION. prg 


kkkkkkkk-kk-kkkk-k-k-kkk-k-k-kkk-k-kkk-k-k-kk-k-k-kk-kifit-kick-k-kk-k^'kk-k-k-k-k^k-k-kk-k-k-k-k-k-kkkkk-kkk 

Select  A 

Use  BATCH  index  SNCIBAT,CIBAT 
Se lee  t  B 

Use  PROPERTY  index  SNPROPER 
Select  C 

Use  ASL  index  INASL 
Select  D 

Use  CUSTOMER  index  CICUST 
Select  B 

Store  "X"  to  batcheck, checks 
Xcheck  =  .T. 
Do  while  Xcheck 
Clear 
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0  10,15  to  14,65 

(a  11,17  Say  "   Customer  Code  :  "  Get  Mcil  Pict  "9999" 

@  13,17  Say  "   Stock  Number  :  "  Get  Stockn  pict  "9999-99-999-9999" 

Read 

If  Mcil  =  "   "  .OR.  stockn="   " 

Exit 
Endif 
Select  D 
Seek  mcil 
If  .MOT.  foundO 

(a  11,16  clear  to  13,64 

d  11,17  Say  "Not  found  "+Mcil-t-"  code  customer  " 

(?  13,17  Say  "Do  you  want  to  add  this  as  customer?  (Y/N)  "  ; 

Get  checks  pict  '^' !  " 

Read 

If  checks  =  "Y" 
Mci=Mcil 
Do  addcust 

Store  cdesc  to  Mcdescl 
Loop 
Else 

Loop 
Endif 
Else 

Store  cdesc  to  Mcdescl 

Select  B 

StockN  =  Upper(StockN) 

Seek  StockN 

If  .NOT.  foundO 

Clear 

Store  "X"  to  checks 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book" 

(?  15,20  Say  "  Is  this  the  INITIAL  demand  ?  "  get  checks 

Read 

checks  =  upper(checks) 

If  checks  =  "Y'' 

Store  0  to  Mcost 

Else 

Clear 

@  15,  20  say  "Check  stock  number  and  try  again 


f  II 


Else 

Endif 

Endif 


Wait 
Loop 
Endif 

mcost  =  unitcost 


Select  A 

Append  Blank 

Replace  CI  with  MCIl ,  Type  with  Mtype,  SN  with  StockN, Misc  with  .T. 

Replace  Unitcost  with  Mcost,  Date  with  today,  Regno  with  Mregno 

Do  while  .T. 

Set  format  to  batch 
Read 

If  batcheck  =  "Y" 
Set  format  to 
Replace  REQNO  with  mregno 
Stockn  =  space(16) 
Exit 
Endif 
Enddo 
Enddo 

Close  Databases 
Release  all 
Return 
* *  Eof  TRSTOKRD.prg  ^ * 
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c.  TRBATCH 

i^-k-k-k-k-k-k-k-k-k-k-k-k-kir-k-k-k-k-k  TRBATCH  .  PRG  kkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name....:  TRBATCH. prg  * 
'^  Author :  Park,Taeyong  * 

*  Date :  Aug  28.  1987  * 

*  Purpose :  This  is  the  module  for  performing  the             * 

*  BATCH  file  which  contains  the  records  * 

*  of  routine  transactions  * 


*  Called  by 

*  Modules  called 

*  Databases  used. 

*  Variales  used. . 

*  Public. 

*  Local 


TRANSACT. prg  * 

ISSUE. prg  * 

MASTER , PROPERTY , ASL , BATCH , TEMPBAT  * 

■k 

REQNOl,  ZULU  * 

MQTY  holds  unit  quatity  of  a  given  stock  item.     * 

*  MTOTAL  holds  total  amount  of  item  which  is  written  * 

*  on  the  report  so  far.  * 

*  MUNITC  holds  unit  price  of  a  given  item.  * 

*  STOCKN  holds  stock  number  * 

*  LINECTR  holds  the  number  of  the  line  written  so  far* 

*  N  holds  how  many  iteration  has  happend  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkJ<Jrkkkkkkkkkkkkkkkkk 

Select  A 

Use  MASTER  index  SCTMAST 

Select  B 

Use  PROPERTY  index  SNPROPER 

Select  C 

Use  ASL  index  INASL 

Select  B 

Set  relation  to  SN  into  C 

Select  A 

Set  relation  to  SN  into  B 

C  a  Tec  t  E 

Use  Batch  index  SNCIBAT,CIBAT 

*....  Create  a  temporary  file  for  stock  number  and  type  of  transaction.* 

*.  .  .  .  is  same  as  given  condition * 

Total  on  SN  to  TEMPBAT  for  TYPE="RD" 
Use  TEMPBAT 
Go  top 

* If  nothing  has  happened  the  day,  give  information  and  return * 

If  Eof() 

(?  10,14  Clear  to  14,65 

(?  10,14  to  14,65 

d  11,17  Say  "Your  Batch  file  is  empty  ->  Go  and  take  rest  !" 

d  13,19  Say  "Press  Any  key  to  go  main  menu" 

Wait  "  " 

Release  all 

Close  databases 

Erase  TEMPBAT. dbf 

Return 
Endif 

Index  on  SN  to  TEMPBAT 

Use  TEMPBAT  index  TEMPBAT 

Set  relation  to  SN  into  PROPERTY 

Store  "X"  to  mprint, checks 

Store  1  to  PAGECTR, LINECTR, N 

Store  0  to  TOTAL, MTOTAL, Z 

Go  top 

Do  while  .NOT.  Eof() 

Clear 

@  10,14  clear  to  14,65 

(?  10,14  to  14,65 

d  11,27  say  "Wait  while  it  is  cession  " 

Store  SN  to  STOCKN 

Store  QTY  to  NQTY 
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store  B->nni  to  Mnm 
Store  B->unit  to  Munit 
Store  B->unitcost  to  MUNITC 
Store  B->OMHAND  to  MONHAND 
Store  MONHAND  -  NQTY  to  XONHAND 
If  XONHAND  <  C->ROP 

* Check  whether  the  master  file  already  has  an  order 

* of  the  item  or  not,  if  yes,  check  the  amount  so  that 

* can  do  action  necessary. 

Select  A 

Seek  STOCKN  +  "1500RL" 

If  foundO  .AND.  .NOT.  POSTED 

Store  QTY  +  XONHAND  to  MONHAND 
Else 

Store  XONHAND  to  MONHAND 
Endif 
Select  E 
Endif 

If  MONHAND  <  C->ROP 
If  mprint  =  "X" 
Do  while  .T. 

(a  10,14  clear  to  14,65 

(a  10,14  to  14,65 

@  11,27  say  "Ready  printer?  "  get  MPRINT  pict  "!" 

Read 

*.Set  printer  ready  to  print  out,  and  console  off  so  that 

* can  be  being  conducted  without  disturbance. 

If  mprint  =  "Y" 
Set  print  on 

(a  13,20  Say  "Wait  while  printing " 

Set  console  off 
Exit 
Endif 
Enddo 
Endif  , 

If  LINECTR=40*(N-1)+  1 
If  LINECTR  =  1 

Store  Val(Substr(REQN01,8,4))  to  MREQNO 
MREQNO  =  lOOOGO+MREQNO+1 

REQN01=  "1500QM"+"-"+substr(str(MREQNO),7,4)+"-"+ZULU  ] 

Endif 

?  ' 

?  '  REQUEST  FOR  ISSUE' 

??  '  _     .       - 

??  '  Date  :  '+Dtoc(date()) 

?  '    To  :  The  3333  Logistics  Support  Command' +  Mcdescl 

?  '  From  :  The  150  Infantry  Division  ' 

?  '  Request  No  :  '+Reqnol 

?  '  ' 

?  '   No   Stock  number     Description    ' 

??  'Unit    Quantity     Price     Total' 

Store  pagectr  +  1  to  pagectr 
Endif 

Store  (C->RO) -MONHAND  to  MQTY 
Store  MQTY  *  MUNITC  to  MTOTAL 
Store  TOTAL  +  MTOTAL  to  TOTAL 
Store  linectr  to  Z 

?  Str(Z,4)+'  '+sn+'   ' +rtrim(mnm)+space(15  -  LEN(rtrim(mnm) ) ) 
??  '  '+  munit+'  '+str(mqty)+str(munitc) 
??  str(munitc'''mqty) 
linectr  =  linectr  +  1 

* Record  the  action  on  the  master  file. 

Select  A 

Append  Blank 

Replace  SN  with  StockN,Ci  with  "1500" 

Replace  Reqno  with  reqnol,Qty  with  MQty,Type  with  "RL" 

98 


Page  '  +  str(paqectr ,2) 


Replace  Unitcost  with  munitc,Misc  with  .T.,Date  with  today 
Replace  Posted  with  .F. 

Select  E 

If  linectr=40*N  +  1 

?  '  ' 

??  '  ' 

y  I  i 

?  '  ' 

?  'Material  Management  NCO  :   ' 

??  'Date  :  / /      ' 

?  'Material  Management  Officer  : ' 

??  'Date  :  7 / ' 

Eject 
N  =  N  +  1 
Endif 
Endif 
Select  E 
Skip 
Enddo 

* Print  only  when  heading  printed 

If  linectr  >  1 

?  '  ' 

??  '  ' 

?  '  ' 

??  '  Grand  Total  :$'  +  str(total) 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  ' 

??  '  Date  :  / / ' 

?  '  ' 

?  'Material  Management  Officer  :  ' 

??  '  Date  :  / / ' 

Eject 
Endif 
If  MPRINT  ="Y" 

* Reset  printer  off  and  console  on  so  that  make  it 

* possible  to  communicate  with  the  user. 

Set  print  off 
Set  console  on 
Endif 

'^ Erase  the  temporary  file  which  is  no  more  useable, 

Close  databases 

Erase  tempbat.dbf 

Do  TRISSUE 

Release  all 

Close  databases 

Return 

* *  Eof  BATCH. prg  * * 


d.  TRISSUE 

^■k-k-k-k-k-k-k-k-k-k-^-k-k-k-k-k-k-kir  TRISSUE.  PRG  kkkkkkkkkkkkkkkkkkkkkkkkkk 

k-kkkkkkkkkkkkkkk-kkkk-kk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-k 

*=   Module  name....:  TRISSUE. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  2.  1987  ^ 

*  Purpose :  This  is  the  issue  module  for  generating           * 

*  Receipt  to  the  customer  correspondinig            * 

*  to  request  for  issue.                           * 

Batch. prg  * 

none  * 

Vnl,  * 


*  Called  by 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local. . 

*  Databases  used. 


Total, Mtotal,Z,Mexpend,Mfundoh  * 

MASTER , PROPERTY , CUSTOMER , BATCH , STOCKOUT  * 


kkkkkkkkkkkkkkkkk-kkkkkkkk-kkkkkkkkk^kkkkkkkk^kkkkk-kkkkkkkkkkkkkkkkkkkkkk 
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Select  A 

Use  MASTER  index  SCTMAST 

Select  B 

Use  PROPERTY  index  SNPROPER 

Select  C 

Use  STOCKOUT  index  STOCKOUT 

Select  D 

Use  CUSTOMER  index  CICUST 

Select  A 

Set  relation  to  SN  into  B 

Select  E 

Use  BATCH  index  CIBAT , SMCIBAT 

Set  relation  to  SM  into  B 

If  EofO 
Clear 

(a  15,25  SAY 
?  Chr(7) 

x=o 

Do  v/hile  x<35 

X=X+1 
Enddo 

Close  databases 
Return 
Endif 

Store  "X"  to  Mprint 

Do  v;hile    .T. 

14 

14 

25 


Lucky  today!    Go  and  take   a   rest" 


v;hile 
(a  10 
(?  10 
(?  11 
Read 
@  11 
If 


14,65 


clear  to 
to  14,65 
Say  'Ready  Printer 


Get  mprint  pict 


II I II 


42  Say  mprint 


Say  n 
Mprint=^Y' 
Set  print  on 
0  13,20  Say  "Printing. 
Set  console  off 


Store 
Store 
Exit 


0  to  total, mtotal,Z,Mfundoh,Mexpend 

1  to  pagectr , linectr ,N 


Else 


N/W 

"You  Pressed  "+mprint 


Clear 

Set  color  to 

@  13,  20  Say 

Set  color  to 

(a  15,  20  Say  "Do  you  want  to  finish  the  job(Y/N)?"  Get  check 

Read 

If  check  =  'Y' 

close  databases 
Return 
Else 

Store  "X"  to  Mprint 
Loop 
Endif 
Endif 
Enddo 
Go  top 

Do  while  .NOT.  eof() 
If  deleteO 
Skip 
Loop 
Endif 

Store  ci  to  mci 
Select  D 
Seek  mci 
Store  Expend  to 
Store  Fundoh  to 
Store  cdesc  to 
Select  E 
Do  while  Type="RD" 


Mexpend 
Mfundoh 
mcdescl 


.AND.  ci  =  mci 
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If  deleteO 

Skip 

Loop 
Endif 

Store  type  to  mtype 
Store  b->unitcost  to  mcost 
Store  b->onhand  to  fonhand 
Store  qty  to  Eqty 
Store  ronhand-Eqty  to  fonhand 
store  reqno  to  mreqno 
Store  sn  to  stockn 
If  linectr=40*(N-l)+l 

If  linectr  =  1 

Store  Val(Substr(vnl,8,4))  to  Mvn 
Mvn=100000+Mvn+1 
Vnl="1500QM"+"-"+Substr(str(Mvn) ,7 ,4)+"-"+zulu 

Endif 


■? 
■> 
■? 

?? 

??  ' 
7 

?  '  From 

?  '    To 

7 

77 

7 

?  'No 
77  I 

store 
Endif 
If  fonhand  < 

'  chr(7) 


'The  150 
mcdescl 


ISSUE  LIST' 
Page  '  +  str(pagectr ,2) 

Date  :  '+Dtoc(date() ) 

Infanry  Division' 


Vocher  No : ' +vnl 


Stock  number 
Onhand  Unit  Quant  y 
+  1  to  paqectr 


Description' 
Price 


Total 


pagectr 
0 


"You  have  stockout  item  "+stockn 
"This  will  be  added  to  stockout  file' 


clear 

(?  15,20  Say 

@  17,20  Say 

num  =  0 

Do  while  numOO 

num=num+l 
Enddo 

Store  linectr  to  Z 

'  Str(Z,2)+'  '+sn+'  '+rtrim(b->nm)+space(15 
+'  SORRY!  Delay  delivery' 
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■LEN(rtrim(b->nm))) 


Linectr=linectr+1 

Select  C 

Append  Blank 

Replace  sn  with  stockn, ci  with  mci, reqno  with  mreqno 

Replace  qty  with  eqty,unitcost  with  mcost 

Replace  outdate  with  today, posted  with  .F.,Type  with  mtype 

Select  E 

Delete 

Loop 
Endif 
If  fonhand  >=0 

Store  linectr  to  Z 

?  Str(Z,2)+'  '+sn+'  ' +rtrim(b->nm)+space(15  -LEN(rtrim(b->nm) ) ) 

??  ' '+str(b->onhand)+'  '+b->unit 

??  str(qty)+str(b->unitcost)+str(b->unitcost*qty) 

linectr  =  linectr  +  1 

Store  b->unitcost*qty  to  mtotal 

Store  total+mtotal  to  total 

Select  A 

Append  blank 

Replace  sn  with  stockn, ci  with  mci,vn  with  vnl , ; 

reqno  with  mreqno, type  with  mtype 

Replace  qty  with  eqty 
It  with 


Replace  unitcosi 


mcost, Misc  with  .T. 
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Date  with  today, Posted  with  .T. 

Select  B 

Seek  stockn 

Replace  onhand  with  fonhand, tvalue  with  fonhand*unitcost 

Select  E 

Delete 

Skip 
Endif 
If  linectr=40*N+l 

?  '  ' 

??  '  ' 

?  '  ' 

??  '      Grand  Total  '+  str(total) 

?  '  ' 

?  '  ' 

?  '  ' 

?  'Material  Management  NCO  : ' 

??  'Date  :  / /      ' 

?  'Material  Management  Officer  : ' 

??  'Date  :  / / ' 

Eject 

N  =  N  +  1 
Endif 

Enddo 

If  linectr>l  .AND.  .NOT.  linectr=40N+l 

?  '  ' 

?  '  ' 

??  '  Grand  Total  :$'  +  str(total) 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  ' 

??  '  Date  :  / / ' 

?  '  ' 

?  'Material  Management  Officer  :  ' 

??    '    Date    :    II ' 

Store   1    to  pagectr , linectr ,N 
store  0   to  total, mtotal 
Eject 
Endif 
Select  D 
Seek  mci 

Replace   Fundoh  with  Mfundoh-mtotal 
Replace  Expend  with  Mexpend+mtotal 
Select  E 
Enddo 
Select   E 
Pack 

Store   space(4)    to  mci 
Release   all 
Set  print  off 
Set  console  on 
^ - *  Eof  TRISSUE.prg  * 


e.  TRREQLST 

■k-k-k-kir.-k-k-k-k-k-k-k-k-k-k-k-k-ki^-k-k-kif-k       TRREQLST  .  PRG      ■k-k-ki^.i^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-kir-k-k-kir.-k 

*  Module  name....:  TRReqlst.prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  3.  1987  * 

*  Purpose :  This  is  the  Transaction  module  for  request       * 

*  for  issue  to  the  higher  logistics  command        * 

*  in  force.  * 

*  Called  by :  Transact. prg  * 

*  Modules  called  :  None  * 
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Ss Xsc t  A 

Use  MASTER  index  SCTMAST 

Select  B 

Use  PROPERTY  index  SNPROPER 

Select  D 

Use  CUSTOMER  index  CICUST 

Select  A 

Store  "X"  to  CHECK 

Store  0  to  MQTY, TOTAL, MTOTAL 

Store  Val(Su5str ( reqnol ,8,4) )  to  Mreqno 

Mreqno  =  100000+Mreqno+l 

Reqnol=  "1500QM"  +  "-'^+substr(str (Mreqno)  ,7  ,4)  +  "-"+zulu 

Do  while  .T. 
Clear 

@  10,15  to  14,65 

(a  11,17  Say  "   Customer  Code  :  "  Get  Mcil  Pict  "9999" 
@  13,17  Say  "   Stock  Number  :  "  Get  Stockn  pict  "9999-99-999-9999" 
d  15,25  Say  "Leave  blank  any  space  to  exit." 
Read 
Select  D 
Seek  mcil 
Do  Case 

Case  Mcil  =  "   " 

Exit 
Case  .NOT.  found() 

(?  11,16  clear  to  13,64 

(a  11,17  Say  "Not  found  "+Mcil  +  "  code  customer  " 
@  13,17  Say  "Do  you  want  to  add  this  as  customer? (Y/N)  "; 
Get  check  pict  "!" 
Read 

If  check  =  "Y" 
Do  addcust 
Store  "X"  to  CHECK 
Store  cdesc  to  Mcdescl 
Else 

Loop 
Endif 
Case  FoundO 

Store  cdesc  to  Mcdescl 
EndCase 

Select  B 

StockN  =  Upper(StockN) 

Seek  StockN 

Do  case 

Case  StockN  =  "      " 

Exit 
Case  .NOT.  found() 
Clear 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book" 
(?  15,20  Say  "Is  this  the  INITIAL  demand?  "  GET  CHECK  Pict  "!" 
Read 
If  check  =  "Y" 

Store  0  to  Mcost 
Store  "X"  to  CHECK 
Else 

Clear 

(a  15,  20  say  "Check  stock  number  and  try  again  !" 
Wait 
Loop 
Endif 
Case  foundO 

Store  UNITCOST  to  MCOST 
Store  ONHAND  to  MONHAND 
Store  NM  to  MNM 
Store  UNIT  to  MUNIT 
Endcase 
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Select  A 

Append  Blank 

Replace  CI  with  MCIl ,  Type  with  Mtype, 

Replace  Unitcost  with  Mcost,  Date  with 


Do 


while 
Clear 


T. 


SN  with  StockN,Misc  with  .T, 
today,  Reqno  with  Reqnol 


(? 

@ 

@ 

(? 

(? 

@ 

(a 

(? 

@ 

@ 

@ 

@ 

@ 

(a 

(§ 

@ 

(§ 

(a 

(? 

@ 

(a 

@ 

(a 

(a 

(a 

(a 

(a  8, 

Read 

If  CHECK 


2 

3 

3 

5 

6 

8 

9 

9 

9 

12 

12 

14 

14 

16 

16 

18 

13 

18 

18 

20 

20 

23 

4 


1 
7 
10 


9 

43 

56 

7 

7 

6 

6 

34 

50 

19 

32 

19 

32 

34 

41 

19 

32 

50 

62 

19 

32 

30 

4 

6 

5 

5 

32 


SAY  "Request  for  Issue" 

SAY  "Today  is. . ." 

Say  Today 

SAY   "   To:  "+  mcdescl 

SAY  "From:  The  1500  Infantry  Division" 

SAY  "Type  of  transaction  :  " 

SAY   "Request  for  Issue(RL)" 

SAY  "Request  Number:" 

GET   REQNOl   PICTURE  "9999 !! -9999-9999" 

SAY  "Stock  Number:" 

GET  MASTER->SN   PICTURE  "9999-99-999-9999" 

SAY  "Description  :" 

GET   MNM 

SAY  "Unit  :" 

GET  MUNIT   FUNCTION  "!AAA"   PICTURE  "XXXX" 

SAY  "Quantity     :" 

GET  MQTY  Pict  "99999" 

SAY  "Reusable?  :  " 

GET   MASTER->Misc 

SAY  "    Price  :  " 

GET  MCOST  PICT  "999999.99" 

SAY  "Is  this  record  correct  ?  "  GET  CHECK  pict  "!" 

TO  21,  71 

TO   3,  40 

TO   7,  70 

TO   10,  70 

TO   9,  32 

—  iiyii 


Store 
Exit 
Endif 
Enddo 

(a  10,12  clear 
(a  10,12  to  14 


Replace  QTY  with  Mqty 


X'^  to  CHECK 


to 
63 


14,63 


(§  11,23  say  "Ready  printer?  "  GET  CHECK  pict 

Read 

If  check  =  "Y" 

Set  print  on 

(a  13,20  Say  "Wait  while  printing 

Store  "X"  to  CHECK 

Set  console  off 
Endif 

Store  1  to  pagectr , linectr ,N 
Store  0  to  total, mtotal,Z 
If  linectr<=l 


II  t  It 


7 

7 
7 
•> 
?? 

•> 

■? 
■p 

■> 

->■> 
Endif 
Store 
Store 


To 
From 


No 
Unit 


REQUEST 
Page  ' 

'+  Mcdescl 

The  150  Infantry  Division  ' 
Request  No 


FOR  ISSUE' 
+  str(pagectr,2) 


+Reqnol 


Stock  number 
Quantity 

to  Mtotal 


Description 


price 


Total' 


(Mqty*Mcost) 

linectr  to  Z 
?  Str(Z,4)+'  '+sn+' '+rtrim(Hnm)+space{l5 
??  '  '+  Munit+'  '+str(mqty)  +  str(Mcost) 


LEN(rtrim(Mnni))) 
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??  str(Mcost*mqty) 

Store  Linectr+l  to  linectr 

Store  Mcost*qty  to  mtotal 

Store  total+mtotal  to  total 

@  15,  10  clear  to  17,65 

(?  15,10  to  17,65 

@  16,  15  Say  "Do  you  have  more  to  request(Y/N)?  "  Get  Check  Pict  "!" 

Read 

If  Check="Y" 

Store  "X"  to  CHECK 

Store  0  to  Mqty 

Store  space(16)  to  Stockn 

Loop 
Endif 

?  '  ' 

??  '  ' 

7   I  i 

??  '  Grand  Total  :$'  +  str(total) 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO 

??  ■  ~ 

•? 


Date  :  / /, 


?  'Material  Management  Officer 


■?■? 


Date  :  / / 


Eject 

Store  space(16)  to  Stockn 
Enddo 
Clear 

Set  print  off 
Set  console  on 
Close  databases 
Release  all 
Return 
* *  Eof  TRREQLST.prg 


f.  TRSTOCK 

*************************************************************** 
*********************      TRSTOCK. PRG     *************************** 
********************************************************************** 

*  Module  name....:  TRSTOCK  .prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  AUG  18.  1987  * 

*  Purpose Record  item  received  from  higher  command         * 

*  on  the  master  file.  If  needea  add  to  the         * 

*  ASL  or  PROPERTY  file  * 

TRANSACT. prg  * 

None  * 

* 

Vnl  * 

Docheck_^check_^f  check ,  Dcheck  ,mqtys  ,  smqtys .  .       * 


MASTER , PROPERTY , ASL , CUSTOMER 

lt*******************7^******** 


*  Called  by 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local. . 

*  Databases  used. 
*********** ***************************A*********** ********** ********** 

Select  A 

Use  Master  INDEX  SCTMAST 

Se lee t  B 

Use  PROPERTY  index  SNPROPER 

Select  C 

Use  ASL  index  INASL 

Select  D 

Use  CUSTOMER  index  CICUST 

store  1  to  M 

Store  "X"  to  check, fcheck, dcheck 

store  0  to  mqtys , smqtys, mqty, mlqty,Tqty 

Store  Val(Substr(Vnl,S,4))  to  mvnl 

mvnl  =  100000+mvnl+l 
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Vnl  =  "1500QM-"+Substr(str(mvnl),7,4)+"-"+Zulu 
Docheck  =  .T. 
Do  while  DOCHECK 
Clear 

* Check  Your  customer,  or  add  him 

Do  while  .T. 

@  10,15  to  14,65 

(?  11,17  Say  "  Customer  Code  :  "  get  mcil  pict  "9999" 

(?  13,17  Say  "   Stock  Number  :  "  get  stockn  pict; 

"9999-99-999-9999" 

(?  15,20  Say  "Leave  BLANK  stock  number  to  exit" 

Read 

Seek  mcil 

If  foundO 

Mcdescl  =  cdesc 

Mcdesc2  =  "The  150  Infantry  Division" 
Exit 
Else 

(?  11,16  clear  to  13,64 

@  11,21  Say  "Not  found  "+mcil+"  code  customer" 
@  13,21  Say  "Do  you  want  to  add  the  customer?  "  get 
check  pict  " ! " 
Read 

If  check  =  "Y" 
mci  =  mcil 
Do  addcust 

Store  cdesc  to  mcdescl 
Endif 
Endif 
Enddo 

* Check  the  new  item  initial  or  requested  one. 

Se lee t  B 

StockN  =  Upper(StockN) 

Seek  StockN 

Do  case 

Case  StockN  =  "      " 
Docheck  =  .F. 
Loop 
Case  .NOT.  found() 

@  10,15  to  14,65 

@  11,21  say  "  Not  found  in  your  property  book" 
@  13,21  say  "  Is  this  the  INITIAL  supply?"  get; 
check  pict  " ! " 
Read 

If  check  =  "Y" 
Append  blank 

Replace  SN  with  StockN, DATE  with  Today 
Store  0  to  unitcost,onhand 
Set  format  to  PROP 
Read 

If  fcheck  =  "Y" 

Set  format  to 
Store  unitcost  to  mcost 
Store  onhand  to  monhand 
Replace  TVALUE  with  (mcost*monhand) 
Endif 


II 

Re 

10,15  clear  to  14,65 
10,15  to  14,65 
12,17  Say  "Is  This  "+£ 
ASL  item?  "  get  check 
sad 

i tockn  +; 
pict  "!" 

If  check  =  "Y" 

Select  C 

Seek  StockN 

If  found () 

(?  11,14  clear  to 
(a  11,17  say  SN+" 

13 

is 

,64 
Alrea 

dy 

exist!" 
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@  13,17  Say  "Do  you  want  to  ; 

change?"  get  check  Pict  "!" 

Read 

If  check  =  "Y" 

Replace  SN  with  Stockn 

Replace  Date  with  Date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

dcheck=  upper(dcheck) 
IF  dcheck  =  "Y" 
Close  format 
Exit 
Endif 
Enddo 
Endif 

Else 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  ASL 
Read 

If  dcheck  =  "Y" 
Close  format 
Exit 
Endif 
Enddo 
Endif 
Endif 

(?  10,15  clear  to  14,65 

§  10,15  to  14,65 

@  12,25  Say  "You  did  good  job.  Now  try  gain!" 

d  13  25  Say  "  Press  Y|  to  continue  "  get  ; 

check  Pict  " ! " 

Read 

If  check  =  "Y" 

Loop 
Endif 
Else 

@  10,15  clear  to  12,65 
(B  10,15  to  14,65 

@  11,25  Say  "Sorry  no  way  to  go,  Try  again!  " 
d  13,25  Say  "  Press  Y|  to  continue  ^  get  ; 
Check  pict  "!" 
Read 
Loop 
Endif 
Case  found() 

mcost  =  unitcost 
monhand  =  onhand 
Endcase 
Select  A 

Store  stockn+"l500"+"RL"  to  mstockn 

Sum  QTY  for  SN=stockn  .AND.  type="RL"  .AND.  .NOT.  posted  to  Tqty 
Store  "X"  to  zcheck 
Do  while  .T. 

Append  Blank 

Replace  CI  with  MCIl,  Type  with  Mtype 

Replace  SN  with  StockN, qty  with  Tqty 

Replace  Unitcost  with  Hcost 

Replace  Date  with  today, misc  with  .T., posted  with  .T. 

Replace  vn  with  vnl 

Set  format  to  mast 

Read 

zcheck  =  upper(2check) 

If  zcheck  =  "Y" 
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Close  format 

Store  QTY  to  MIQTY 

Store  Mlqty  to  MQTY 

Exit 
Endif 
Enddo 
Go  top 
Seek  mstockn 

* If  requested  item,  post  it 

If  foundO 

Do  while  .MOT.  Eof()  .AND.  type="RL"  .AND.  SN=STOCKN 

If  posted 
skip 
loop 

Endif 

Store  REQNO  to  MREQNO 

Store  DATE  to  MDATE 

Store  UNITCOST  to  MICOST 

Store  QTY  to  CQTY 

Do  case 

Case  MIQTY-CQTY  <  0 

Replace  vn  with  vnl, posted  with  .1. 
Replace  OTY  with  MIQTY 
Append  Blank 
Replace  sn  with  stockn 
Replace  reqno  with  mreqno 
Replace  date  with  mdate 
Replace  unitcost  with  mlcost 
Replace  qty  with  cqty-mlqty 
Replace  posted  with  .F. 
Replace  ci  with  "1500", type  with  "RL" 
Replace  misc  with  .T. 
Exit 
Case  M1QTY-Cqty>=0 

Replace  vn  with  vnl, posted  with  .T. 
Store  MIQTY-CQTY  to  MIQTY 
If  M1QTY=0 

Exit 
Endif 
Endcase 
Skip 
Enddo 
Select  B 
Seek  STOCKN 

Replace  ONHAND  with  MONHAND+MQTY 
Replace  TVALUE  with  (MONHAND+MQTY) *MCOST 
Endif 

*.. Check  If  it  a  stockout  refill  item. 
Select  F 

Use  STOCKOUT  index  STOCKOUT 
Set  relation  to  sn  into  property 
Seek  stockn 
If  EofO  .OR.  Bof() 
Stockn  =  space(l6) 
Select  D 
Loop 
Endif 

Store  'X'  to  mprint 
Do  while  .T. 

(?  10,15  clear  to  14,65 
(a  10,15  to  14,65 

@  11,17  Say  "  You  have  a  delayed  delivery." 
I  13,17  Say  'Ready  Printer  ?  ^    get  mprint  pict  "!" 
Read 

If  mprint  =  'Y' 
Set  print  on 

(?  13,17  Say  "Printing " 

Set  console  off 
Exit 
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Endif 
Enddo 
Do  while  .NOT.  Eof()  .AND. 

If  POSTED 
skip 
loop 

Endif 

Store  REQNO  to  MREQNO 

Store  CI  to  MCI 

Store  OUTDATE  to  MDATE 

Select  D 

Seek  MCI 

Store  cdesc  to  mcdescl 

Select   F 

■> 

7 

? 

■>■? 

•> 

?    '    From 

77      I 

?'  '         To 

7 

?? 

7 

7 

77 

7 


SN=STOCKN 


ISSUE  LIST 
Page  :1' 


+  'The  150  Infanry  Division' 


+  mcdescl 


Date  :  '+DTOC(date()) 


Request  Number  :  '+mreqno 


No    Stock  number   Description     ' 
'   Onhand  Unit  Quantity     price    ' 
'  Total' 
1  '+sn+'  '+rtrim(b->nm) 

??  space(l5  -  LEN(rtrim(b->nm) ) ) 

??  str(b->onhand)+'  '+  b->unit 

??  str(qty)  +  str (b->unitcost)+str(b->unitcost*qty) 

Store  b->unitcost'^qty  to  total 


7 
7    I 
77 
7    I 
■?■? 


??   str(total) 

7      I 


Grand  Total    :$ 


Matrial  Management  NCO 


7  I 

7  I 

77 

77 

7  I  ( 

?  'Material  Management  Officer 
??  '  ' 

■?■? 


Date 


./ /. 


Date 


./ /. 


I 


Eject 

Store  qty  to  mqtys 

Replace  posted  with  .T. 

Replace  refilldate  with  Today 

Select  D 

Seek  mci 

Replace  expend  with  expend-total 

Store  expend  to  mexpend 

Replace  fundoh  with  fundoh-mexpend 

Select  B 

Replace  onhand  with  monhand  -mqtys 

Replace  tvalue  with  (monhand-mqtys)*mcost 

Select  A 

Append  blank 

Replace  SN  with  STOCKN,  CI  with  MCI,  QTY  with  MQTYS,  TYPE  with  "RD" 

Replace  REQNO  with  MREQNO,  UNITCOST  with  MCOST,  POSTED  with  .T. 

Replace  DATE  with  MDATE,  MISC  with  .T.,  VN  with  VNl 

Select  F 
Skip 
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Enddo 

Set  print  off 

Set  console  on 

Stockn  =   space(16) 

Select  D 
Enddo 

Close   databases 
Clear 
* *  Eof  TRSTOCK.prg  *■ 


g.  TRTURN-IN 

ir-k*:^-k-k-k-k-ki^-k-kir-k-k-k-k-k-k  TRTURNIN.  PRG        ir-k*:-k^-k-k-fr-k-kr<:i<:-k-k-k-k-k^ir-k-k-k-k-k-k-k-k-kir-k-k-k 

*  Program..:  Turn-in. prg  * 

*  Author...:  PARK,  Taeyong  * 

*  Date :  Sept  2,  1987  * 

*  Notes....:  Record  Request  for  turn-in  from  Customer  into           * 

*  Master  and  property  book.  * 

Select  B 

Use  PROPERTY  index  SNPROPER 

Select  C 

Use  ASL  index  IMASL 

Select  D 

Use  CUSTOMER  index  CICUST 

Select  E 

Use  BATCH  index  SNCIBAT,CIBAT 

Store  "The  150  Infantry  Division"  to  Mcdesc2 

Store  "X"  to  checks , fcneck,Zcheck 

If  mcil  =  " 

Close  databases 
Return 
Endif 

Xcheck  =  .T. 
Do  while  Xcheck 

Store  mcil  to  custm 
Do  while  .T. 
Clear 

(a  10,15  clear  to  14,65 
0  10,15  to  14,65 

(a  11,17  Say  "  Customer  Code  :  "  Get  mcil  pict  "9999" 
@  13,17  Say  "   Stock  Number  :  "  Get  stockn  ; 
Pict  "9999-99-999-9999" 

(?  15,20  Say  "Leave  blank  Stock  Number  to  Exit" 
Read 
Select  D 
Seek  mcil 
If  .NOT.  foundO 

(?  16,17  Say  "Not  found  "+mcil  +  "  Code  customer " 

d  17,17  Say  "  Please  check  the  code,  or  add  customer  first" 

Store  "X"  to  ANS 

(a  16,15  clear  to  18,70 

d  17,17  Say  "Do  you  want  Add  the  customer  Now?  "  ; 

get  ans  pict  " ! " 

Read 

If  ANS  =  "Y" 

Store  mcil  to  mci 
Do  ADDCUST 
Endif 
Else 

Store  cdesc  to  mcdescl 
Exit 
Endif 
Enddo 
If  mcil  <>  custm 
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0  10,15  clear  to  14,65 
(?  10,15  to  14,65 

(?  12,20  Say  "This  data  will  not  be  added  " 

??  Chr(7) 

N  =  0 

Do  while  N  <  35 

N=N+1 
Enddo 
Exit 
Endif 
Select  B 

StockM  =  Upper(StockN) 
Seek  StockN 
Do  case 

Case  StockN  =  "      " 
Select  E 
Pack 
Xcheck  =  .F. 

Case  .NOT.  found() 
Clear 

@  13,10  say  stockn  +  "  is  Not  found  in  your  property  book' 
(?  15,20  Say  "Please  check  STOCK  NUMBER  and  try  again" 
Wait 

Case  foundO 

mcost  =  unitcost 
monhand  =  onhand 

Select  E 

Append  Blank 

Replace  CI  with  MCIl,  Type  with  Mtype,  SN  with  StockN,; 

Unitcost  with  Mcost,  Date  with  Today, Reqno  with  Mreqno 

Replace  POSTED  with  .F. 

Do  while  .T. 

Set  format  to  turnin 
Read 

zcheck  =  upper(zcheck) 
If  zcheck  =  "Y'' 
mqty  =  qty 

Store  Reqno  to  mreqno 
Set  format  to 
Exit 
Endif 
Enddo 
Clear 
Stockn  =  space(16) 

Endcase 
Enddo 

Do  TRTUNLST 

Close  Databases 

Release  all 

Return 

* 


Eof  turnin. prg  *- 


h  TRTUNLST 

*:-k-k-k-k-k-k-k-k-^-k-k-k-k-k-k-k-k-k-k-k-k-k  TRTUNLST  .PRG      * -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Proqram.:  TRTUNLST. prg  * 

Park,  Taeyong  * 

Sept  2,  1987  * 

Report  generate  program,  called  from  TRTURNIN.prg 


*  Author 

*  Date 

*  Notes 


k-kkkkkkkkkkkkkTrkk-kkkkkkk-kk-k-k^-k-kk-kkk-k-k-kkkkkk-kk-kkk-kkkk-kkkk-kk^k^kk-k-kkkkk-kk 

Clear 
Select  E 
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Set  relation  to  sn  into  property 

Store  'X'  to  mprint 
Store  0  to  total, mtotal,Z 
Do  while  .T. 
Clear 

(a  10,15  to  15,65 

d  12,25  Say  'Ready  Printer  ?  '  get  mprint  pict  "!" 
Read 

If  mprint  =  'Y' 
Set  print  on 

(§  14,25  Say  "Printing " 

Set  console  off 
Exit 
Else 

(?  15,  15  Say  "Be  ready  printer  !  " 
Wait 
Endif 
Enddo 

Store  Val(substr(Vnl,8,4))  to  mvn 
Mvn  =  100000+mvn+l 

Vnl  =  "1500QM-"+substr(str(mvn) ,7,4)+"-"+Zulu 
Store  1  to  pagectr , linectr ,N 
Go  top 
Do  while  .NOT.  eof ( ) 

If  type  =  mtype  .AND.  ci=Custm 
If  .NOT.  posted 

If  linectr=40*(N  -  1)  +  1 

Mvn  =  Val(Substr(Vnl,8,4)) 

Mvn  =  10000+mvn+l 

Vnl   =   "1500QM-"+Substr(str(Mvn),7,4)+"-"+Zulu 

?    '  ' 


■> 
•> 
?? 

•> 

•> 
•? 

7 
7 
■?■?    I 


'  (Turn-In) 
From  :  The  150  Infantry  Division  ' 


I 


ISSUE  LIST' 
Page  '  +  str(pagectr,2) 


I 


Date 
To  : 


:  '+DTOC(date()) 
+mcdescl 


Voucher  No 


+Vnl 


No   Stock  number   Description     ' 
Quantity  Unit    price     Total  Reuasble' 
Store  pagectr  +  1  to  pagectr 
Endif 

Store  linectr  to  Z 
If  misc 

?  Str(Z,4)+'  '+sn+'  ' +rtrim(b->nm)+space(15-LEN(rtrim(b->nm) ) ) 

??  ''+  str(qty)+''+  b->unit 

??  str(b->unitcost)  +  str(b->unitcost*qty)+'   ' 

??  Misc 

Store  b->unitcost*qty  to  mtotal 

Store  total+mtotal  to  total 

Replace  posted  with  .T. 

Store  B->onhand  -  qty  to  monhand 

Select  B 

Replace  onhand  with  monhand 

Replace  tvalue  with  monhand*unitcost 

Select  E 
Else 

?  Str(Z,4)+'  '+SN+'  '+rtrim(b->nm)+; 

space (15-LEN(rtrim(b->nm) ) ) 

??  ' '+str(qty)+' '+b->unit+'  ' 

??  misc 

Replace  posted  with  .T. 

Store  total  to  total 
Endif 
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Replace  vn  with  vnl 
If  linectr=40*N 

7  7  I I 

7  I 

??  'Grand  Total  '+  str(total) 

7  I  I 

7  I  I 

7  I  ' 

?  'Material  Management  NCO  :  

??  'Date  :  / /     ' 

?  'Material  Management  Officer  : 

??  'Date  :  / / ' 

Eject 

N  =  N  +  1 
Endif 
linectr  =  linectr  +  1 

Endif 

Endif 

Skip 

Enddo 

7  I  I 

??  '  ' 

7  I  I 

??  '       Grand  Total  :$'  +  str(total) 
7  I  I 

7  I  I 

?  '  Authorized  to  turn-in     ' 

?  '  by  ' 

?  'Matrial  Management  NCO  :  ' 

??  '  Date  :  / / ' 

7  I  I 

?  'Material  Management  Officer  :  ' 

??  '  Date  :  / / ' 

linectr  =  1 

pagectr  =  1 

Store  0  to  total 

Eject 

Set  print  off 

Set  console  on 

Return 


* *  Eof  TRTUNLC.prg  *■ 


i.    TRCANCEL 

■k*-k-k-k:i<-k'k-k-k:k-k-k-k-k-ki^-ki^-k  TRCANCEL  .PRG     ^ *: -k -k -k -k -k -k -^ -k -k -k -k :h -k :k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkirkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkk 

*  Module  name TRCancel.prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  20.  1987  * 

*  Purpose :  Cancel  the  request  for  issue  item               * 

*  Called  by :  Transact. prg  * 

*  Modules  called  :  None  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Use  Master  index  SCTMAST 

Store  "N"  to  Checks 

Store  Stockn  to  Msn 

Store  "1500"  to  Mcust 

Store  Msn+Mcust+"RL"  to  Msncu 

Seek  Msncu 

Do  case 

Case  STOCKN  =  "  " 

More  =  .F. 

??  Chr(7) 

(§  11,15  clear  to  15,65 
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(a  11,15  to  15,65 

d  13,17  Say  "Please  Enter  Stock  number  you  want  to  cancel  ! 

N  =  0 

Do  while  N  <  35 

M  =  N+1 
Enddo 
Case  found() 

Set  format  to  CANCMAST 

Read 

If  checks=  "Y" 

Replace  Vn  with  "CANCEL-0000-0000" , posted  with  .T. 

Store  unitcost  to  mcost 

Store  reqno  to  mreqno 

Store  qty  to  mqty 

Append  Blank 

Replace  sn  with  stockn,ci  with  "1500", Reqno  with  mreqno 

Replace  Qty  with  Mqty, Type  with  "CL" , unitcost  with  mcost 

Replace  Misc  with  .T., posted  with  .T.,Date  with  today 

Replace  Vn  with  "Cancei-0000-0000" 

More  =  .F. 
Endif 
Set  format  to 

Case  .NOT.  found() 

@  11,15  clear  to  15,65 

@  11,15  to  15,65 

(?  13,18  Say  "You  never  request  "+stockn+"  code  item  !" 

??  chr(7) 

N=l 

Do  while  N  <35 

N=N+1 
Enddo 
More  =  .F. 

Endcase 

Close  Databases 

Return 

A -k  £of  Cancel. prg  * '' 


j     TRACKING 

***********************        TRACKING .PRG  ***************************** 

*********************************************************************** 

*  Module  name Trancking.prg  * 

*  Author :  Park,  Taeyong  *" 

*  Date :  Sept  20.  1987  * 

*  Purpose :  Tracking  the  record  of  transaction.               * 

*  Called  by :  Transact. prg  * 

*  Modules  called  :  None  * 
*********************************************************************** 

Set  talk  off 

Set  echo  off 

Use  master 

Index  on  Ci+SN  to  CSMAST 

Use  master  index  sctmast, CSMAST 

title  =  "Sales  Tracking" 

Mok="Y" 

Do  while  .T. 

Clear 

(§  4,25  say  title 

@  8,15  Say  "Options" 

@  10,17  Say  "1.   Detail  Sales" 

@  11,17  Say  "2.   Summary  Sales" 

(?  12,17  Say  "3.   Detail  Customer  Sales" 

d  13,17  Say  "4.   Summary  Customer  Sales" 

@  15,17  Say  "5.   Return  to  main  menu" 

@  17,15  Say  "Enter  Option:   " 
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(a  2,1  to  23,75 
Store  ""  to  sel 
@  17,29  Get  sel 
i=0 

Do  while  i=0 
i=inkey( ) 
If  chr(i)$"12345" 

Exit 
Endif 
1=0 
Enddo 

(§  17,29  Say  Chr(i) 
If  chr(i)=^'5" 

Exit 
Endif 

Store  space(8)  to  Enddate 
Store  Space(8)  to  begdate 

(?  21,9  Say  "Enter  period  for  sales  tracking  ( 
(a  21,42  Get  begdate  pict  "99/99/99" 
(?  21,53  Get  Enddate  pict  "99/99/99" 
Read 

Store  Ctod(begdate)  to  begdate 
Store  Ctod^Enadate)  to  enddate 
Set  filter  to  Date>begdate  .AND.  Date<Enddate 
Do  case 

Case  chr(i)="l" 

Set  Order  to  1 
Do  setup 

Report  form  tranrpl 
Case  chr(i)="2" 

Set  Order  to  1 
Do  setup 

Report  form  tranrp2 
Case  chr(i)="3" 

Set  Order  to  2 
Do  setup 

Report  form  tranrp3 
Case  chr(i)="4" 

Set  Order  to  2 
Do  setup 

Report  form  tranrp4 
Otherwise 
Loop 
Endcase 

If  Upper(Mok)="Y" 
Set  console  on 
Set  print  off 
Set  Order  to  1 
Else 

(?  24,17  Say  "Press  any  key  to  continue..." 
Wait"" 
Endif 

Clear 
Enddo 

Close  databases 
Erase  cimast.ndx 
clear 
Return 
* *  gQf  TRacking.prg  *--■ 
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3.       REPORTS 

a.  REPORTS  MENU 

■k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k  REPORTS  .  PRG      kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkk-kkkk-k-k-kk-k-kkkkkkkkk-kkkkkkkk-kkkk-k-k-k-k-k-k-k-k-k-k-kk-kir'kkk-ki^-kkk-kkkk-kk-k-k-kkk-k 

*  Module  name....:  Reports. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  15.  1987  * 

*  Purpose :  To  generate  report  to  higher  command             * 

*  or  to  use  in  division  * 

k  k 


*  Called  by 

*  Modules  called 

*  Variales  used. . 

*  Public, 

*  Local, 


Pmain.prg  * 

RPTSR.prg  RPSOR.prg  RPOST.prg  RPEIS.prg  * 

Reportd(last  report  date)  * 

Bigdate,Enddate,Msel  * 

*  k 

kkkkkkkkkk-kkkkkkkkkkk-kkkkk-kkk-kkkkkkkkkkk-k-kkkk-kkk-k-kkk-k-kk-kk-kk-k-k-k-k-kkkk-kk-kk 


DO  WHILE  .T. 

Store  space(8)  to  begdate,enddate 
Store  "k"  to  Msel 

CLEAR 

0  1,15  TO   3,55   double 

(?  4,1   TO   23,77 

@   6,3   TO   21,38 

(§   5,4   TO   7,28 

@  6,5    SAY   SPACE (23) 

(?  6,41   TO    12,75 

(§   5,42   TO   7,59 

(?  6,43   SAY   SPACE(16) 

0   14,41    TO   21,75 

@   13,42   TO    15,59 

d   14,43    SAY   SPACE(16) 

(B  2,25    SAY   "REPORT      S" 

@  6,6  SAY  "  Type  of  Reports" 

(?  6,44  SAY  "Information" 

(?  14,44  SAY  "Time  Period" 

@  9,6  SAY  "1  :  Transaction  Status  Report" 

(a  10,10  SAY  "(DA  form  3183)" 

(?  12,6  SAY  "2  :  Stockout  Report" 

@  13,10  SAY  "(DA  form  3184)^' 

@  15,6  SAY  "3  :  OST  Report'' 

(?  16,10  SAY  "(DA  form  3185)" 

@  18,6  SAY  "4  :  Combat  Essential  Item" 

(§  19,10  SAY  "Stockout  Report" 

(a  20,10  SAY  "(DA  form  3186)" 

(a  8,  46  SAY  "Last  TSR  Report  Date" 

(§  9,  50  SAY  TSRDATE 

@  11,46  SAY  "Today "  +DTOC(TODAY)  +  " ("+2ulu+" ) " 

(?  17,45  SAY  "Biginning  Date  -  Ending  Date" 

@  19,50  Say  "(         -         )" 

SET  COLOR  TO  N/W 

(?  19,51  SAY  Begdate  Pict  "99/99/99" 

(a  19,62  SAY  Enddate  Pict  "99/99/99" 

SET  COLOR  TO 

(a  22,13  SAY  "Enter  Selection  from  (1  -  4,  or  0  to  return) 

STORE  ""  TO  SEL 

(?  22,60  SAY  SEL 

* The  following  lines  are  for  select  loop 

i=0 

DO  WHILE  i=0 

i=IMKEY() 

(?  22,60  SAY  "" 

IF  UPPER(CHR(i))$"01234" 
(a  22,60  SAY  CHR(I) 
EXIT 

END  IF 
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i=0 
ENDDO 

If  CHR(I)  .=  '0'  .OR.  1=27 
?  Chr(7) 
Clear 
Exit 
ENDIF 
DO  CASE 

Case  CHR(I)  =  '2' 

(a  8,  46  SAY  "Last  SOR  Report  Date" 
(a  9,  50  SAY  SORDATE 
Case  CHR(I)  =  '3' 

@  8,  46  SAY  "Last  OST  Report  Date" 
@  9,  50  SAY  OSTDATE 
Case  CHR(I)  =  '4' 

(?  8,  46  SAY  "Last  EIS  Report  Date" 
(§  9,  50  SAY  EISDATE 
ENDCASE 

@  19,51  GET  Beqdate  Pict  "99/99/99" 
(a  19,62  GET  Enddate  Pict  "99/99/99" 
READ 

IF  BEGDATE  ="  "  .OR.  ENDDATE="  " 
?  CHR(7) 

@  24,15  SAY  "YOU  HAVE  TO  ENTER  THE  PERIOD" 
K=0 
DO  WHILE  K<40 

K=K+1 
ENDDO 
LOOP 
ENDIF 

Store  Ctod(begdate)  to  beqdate 
Store  Ctod(enadate)  to  enadate 
DO  CASE 

Case  CHR(I)  =  '1' 
Do  RPTSR 

STORE  TODAY  TO  TSRDATE 
Case  CHR(I)  =  '2' 
DO  RPSOR 

STORE  TODAY  TO  SORDATE 
Case  CHR(I)  =  '3' 
DO  RPOST 

STORE  TODAY  TO  OSTDATE 
Case  CHR(I)  =  '4' 
DO  RPEIS 

STORE  TODAY  to  EISDATE 
OTHERWISE 

?  CHR(7) 
ENDCASE 
ENDDO 
RETURN 
* *  Eof:  REPORTS. prg  * 


b.  RPTSR 


*************************************************************** 

*********************       RPTSR. PRG      ***************************** 
********************************************************************** 


Module  name....:  RPTSR. prg 


leyong 
57 


R.prc 

Author :   Park,    Tai  ^ 

Date :  Sept  15.  l98' 

Purpose :  Generate  Transaction  history  report 

to  higher  command. 
REPORTS. prg 


Called  by 

Modules  called 

Variales  used. . 

Local. . 


Begdate,  Enddate,  Classn,  Type 
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Clear 

Select  B 

Use  PROPERTY  index  snproper 

Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "  Transaction  Status  Reports"  to  Mtitle 

Do  Select 

Store  " (Date>=Begdate  .AND.  Date<=Enddate)"  to  period 

Store  "Type='RL' .OR.TYPE='IL' .OR.TYPE='CL' .OR.TYPE='TL"'  to  tcond 

Store  "^^ERIOD"  TO  CNl 

Select  A 

Use  MASTER  index  sctmast 

Copy  to  Mlmast  for  &tcond 

Do  case 

Case  upper(Chr(i))="l" 

Sel="l" 

Select  B 

Index  on  Class+Sn  to  CSPROPER 

Select  A 

Use  Mlmast 

Copy  to  STMAST  for  &cnl 

Exit 
CAse  upper(chr(i))="2" 

Sel=''2" 

(a  14,30  Say  "Enter  Class  number(l-lO)  "  get  Classn  pict  "9' 

(a  15,30  Say  "  0  for  10  " 

Read 

If  classn  =  "0" 

Store  "10"  to  Classn 

Endif 

Select  A 

Use  MIMAST 

Copy  to  XTMAST  for  &period 

INDEX  ON  SN  TO  XTMAST 

USE  XTMAST  INDEX  XTMAST 

Set  relation  to  sn  into  B 

Copy  to  STMAST  for  b->class= ' &classn' 

Use  STMAST 

Erase   xtmast.dbf 

Erase  xtmast.ndx 

Exit 
upper(chr(i))="3" 

Sel=''3" 

(?  16,30  Say  "Enter  stock  number"  get  stockn; 

pict  '9999-99-999-9999' 

Read 

Select  A 

Use  MIMAST 

Index  on  sn  to  MIMAST 

Use  MIMAST  INDEX  MIMAST 

Store  "&period  .AND.  sn=' &stockn' "  to  conditl 

Copy  to  STMAST  for  Scconditl 

Exit 
Case  upper(chr(i) )="0" 

Close  databases 

Return 
Otherwise 

?  chr(7) 
Endcase 
Enddo 
Select  A 
Use  STMAST 

Index  on  SN+TYPE+CI  to  STMAST 
Use  STMAST  index  stmast 
Erase  MIMAST. dbf 
Erase  MIMAST. ndx 

Do  printer 
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Case 


store  1  to  linectr,pagectr,N, liner 

Store  0  to  mdi, reqqty,canqty, recqty, turnqty,DInow,mqty 

Store  0  to  sreqqty , smdi, scanqty, srecqty , sturnqty, sdinow 

If  EofO 

(?  10,18  Clear  to  14,58 
@  10,18  to  14,58 

(§  11,20  SAY  "   You  Never  Requested" 
d  13,20  Say  "   Press  any  key  to  return...." 
Wait  "" 

Close  databases 
Erase  STMAST.DBF 
Erase  STnAST.NDX 
Return 
Endif 
select  A 
Clear 
Go  top 

* Holds  one  of  item  from  property  file 

Do  while  .NOT.  Eof() 
Store  SN  to  stockn 
select  B 

store  class  to  classn 
Store  nm  to  mnm 
Select  A 
Seek  stockn 
If  foundO 

Sum  qty*Unitcost  for  type="RL' 
Store  qty*unitcost  to  RLqty 
Sum  Qty^unitcost  for  type="IL' 
Store  qty  to  ILqty 
MDI=Rlqty  -  Ilqty 
Seek  stockn 

Do  while  .NOT.  Eof()  .AND.  sn=stockn 
Store  qty*unitcost  to  mqty 
Do  case 

Case  type  =  "RL" 

Reqqty  =  reqqty+mqty 
Case  Type  =  "CL" 

Canqty  =  Canqty+mqty 
Case  Type  =  "IL" 

Recqty  =  Recqty+mqty 
Case  Type  =  "TL" 

Turnqty  =  Turnqty+mqty 
Endcase 
Skip 
Enddo 

Store  MDI+reqqty-Canqty-Recqty  to  DInow 
If  liner=l 


.AND.  date  <  begdate 
.AND.  date  <  begdate 


? 

7 

?? 
•> 

?? 

Y 
? 

?? 

Y 

7? 


From 

To 


Transact  Status  Report' 
Page  '  +  str(pagectr ,2) 


+Dtoc(date()) 


Date 
The  150  Infanry  Division' 
The  3333  Logistics  Supprot  Command 


'   From       To 
Dtoc(begdate)+'  • 
No 


+Dtoc(enddate) 


Stock  number  Description  ' 
D/Ibeg  Req  st  Cancel  Rec  ve  Turnin  D/Inow' 
Store  pagectr  +  1  to  pagectr 
Endif 


Store  linectr  to  Z 

?  Str(Z,4)+'  '+stockn+'  ' +rtrim(mnm)+space(15 


LEN(rtrim(mnm) ) ) 
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??  ' '+substr(str(MDI) ,5,6)+'  '+  substr(Str(reqqty) ,4,7) 

??  substr(str(Canqty) ,4,7)+substr(str(Recqty) ,4,7) 

??  substr(str(turnqty) ,4,7)+substr(Str(DInow) ,4,7) 

Store  Smdi+mdi  to  Smdi 

Store  Sreqqty+reqqty  to  Sreqqty 

Store  Scanqty+canqty  to  Scanqty 

Store  Srecqty+recqty  to  Srecqty 

Store  Sturnqty+turnqty  to  Sturnqty 

Store  Sdinow+ainow  to  Sdinow 

Store  0  to  mdi, reqqty,canqty  recqty, turnqty,DInow 

Linectr=linectr+1 

Liner=  Imer+l 

If  liner=40'*^N 

?  '  ' 

??  '  ' 

??  '      Grand  Total  '+  str(total) 

?  '  ' 

?  '  ' 

?  '  ' 

?  'Material  Management  NCO  :  

??  'Date  :  / / 

?  'Material  Management  Officer  : 

??  'Date  :  / / ' 

Eject 

M  =  N  +  1 
Endif 
Endif 
If  sel="l" 

If  linectr=l 

Select  B 

Skip 

Store  class  to  classn 

Loop 

Endif 

Select  B 

Skip 

Endif 

If  B->Class<>Classn  .OR.  Eof() 

?  'Class  '+classn+'  ' 

77  I I 

7  I  I 

??  'Subtotal  '+'     '+substr(str(smdi) ,5,6)+'  ' 

??  substr(str(sreqqty) ,4,7)+  substr(str(Scanqty) ,4,7) 

??  Subs tr(str( Srecqty) , 4, 7 )+Substr(Str( Sturnqty) ,4,7) 

??  substr(Str(Sdinow) ,4,7) 

7  I  I 

Store  0  to  sreqqty , smdi, scanqty, srecqty, sturnqty, sdinow 
Store  1  to  linectr 
Liner=liner+3 
Endif 
Enddo 
If  liner>l 

7  I  I 

7  I  < 

?  'Matrial  Management  NCO  :  ' 

??  '  Date  :  / / "■ 

7  I  I 

?  'Material  Management  Officer  :  ' 

??  '  Date  :  / / ' 

linectr  =  1 

pagectr  =  1 
Endif 
If  mprint="Y" 

Eject 

Set  console  on 

Set  print  off 
Endif 

Set  color  to  N/W 
Wait 
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Set  color  to 

Store  space(16)  to  stockn 

Clear 

Close  Databases 

Erase   STmast.dbf 

Erase  stmast.ndx 

If  sel="l" 

Erase   csproper.ndx 
Endif 

(a  9,15    to   15,64   double 
@  11,25   Say   "Finished  report   for  TSR   " 
(a  13,25   Say   "Period  "+Dtoc(begdate)  +  "    -    "+Dtoc(enddate) 
N=0 
Do  while   n<35 

N=M+1 
Enddo 
Clear 

Store   Space(16)    to   stockn 
Release   all 
Return 
* *  Eof  RPTSR.prg  * ■ 


c.  RPOST 

i^i-k-^ir-M-k-krk-k-k-k-k-k-k-k-k-k-k  RPOST  .  PRO       *: -k -k -k -k -k -k ir -k * *: -k -k *: * -k -k -k -k -k -k -k -k -k -k * -k -k -k -k -k 

kkkkkkkkkkkkkk-k-k-k-k-k-kkkkkkkkkkkk-kkkk-kkk-kk-kkk-kkkkkkkkkkkkkkkkkkkkkkkkkk-k 

*  Module  name RPOST. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  25.  1987  * 

*  Purpose :  Generate  Oder  shipping  time  report              * 

*  Called  by :  Reports. prg  * 

*  Modules  called  :  None  * 

kk-kkkkkkkk-k-k-kk-kkirk-kkkkkk-kk-kkk-kk-kk-k-k-kkkk-k-ki^-kk-k-kk-k-kk-k-k-k-k-k-k-kk-kk-k-kk-k-kkk-k-k-k 

Clear 

Select  B 

Use  PROPERTY  index  snproper 

Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "ORDER  SHIPPING  TIME  REPORT"  to  mtitle 

Do  select 

Store  " (Date>=Begdate  .AND.  Date<=Enddate)"  to  period 
Do  case 

Case  upper(Chr(i))="l" 

Sel='h" 

Select  B 

Index  on  Class+Sn  to  CSPROPER 

Select  A 

Use  master 

Store  "type='RL'  .AND.&period"  to  conditl 

Copy  to  klMAST  for  &conditl 

Store  "tYpe='IL'  .AND.&period"  to  condit2 

Copy  to  ILMAST  for  &condit2 

CAse  upper(chr(i))="2" 
Sel=''2" 

(a  14,35  Say  "Enter  Class  number(l-lO)  "  get  Classn 
@  15,35  Say  "  (0  for  10)" 

Read 
If  classn  =  "0" 

Store  "10"  to  Classn 
Endif 
Select  A 

Use  master  INDEX  sctmast 
Set  relation  to  sn  into  B 
Store  "type='RL'  .AND.  &period  .AND.  b->class='&classn' " ; 
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to  conditl 

Copy  to  RLMAST  for  &conditl 

Store  "type='IL'  .AND.  &period  .AND.  b->class=' &classn' 
to  condit2 

Copy  to  ILMAST  for  &condit2 
Exit 
Case  upper(chr(i))="3" 
Sel=''3" 

@  16,35  Say  "Enter  stock  number"  get  stockn; 
Diet  '9999-99-999-9999' 
Read 
Select  A 

Use  master  INDEX  sctmast 
Set  relation  to  sn  into  B 

Store  "type='RL'  .AND.  &period  .AND.  sn= ' &stockn' " ; 
to  conditl 

Copy  to  RLMAST  for  Scconditl 

Store  "type='IL'  .AND.  &period  .AND.  sn= ' &stockn"' ; 
to  conditz 

Copy  to  ILMAST  for  &condit2 
Exit 
Case  upper(chr(i) )="0" 
Close  databases 
Return 
Otherwise 

?  chr(7) 
Endcase 
Enddo 
Select  A 
Use  RLMAST 

Index  on  SN+VN  to  SRRL 
Use  RLMAST  index  SRRL 
If  Eof() 

@  10,18  Clear  to  14,58 
(a  10,18  to  14,58 

(a  11,20  SAY  "   You  Never  Requested" 
d  13,20  Say  "   Press  any  key  to  return...." 
Wait  "" 

Close  databases 
Erase  RLMAST. DBF 
Erase  SRRL.NDX 
Return 
Endif 

Select  C 

Use  ILMAST 

Index  on  SN+VN  to  SRIL 

Use  ILMAST  index  SRIL 

If  EofO 

@  9,18  clear   to   13,60 

(a  9,18   to   13,60 

d  10,20  SAY  "You  Never  Received  the  requested  item" 

@  12,20  Say  "Press  any  key  to  return..,." 

Wait  "" 

Close  databases 

Erase  RLMAST. DBF 

Erase  SRRL.NDX 

Erase  ILMAST. DBF 

Erase  SRIL.NDX 

Return 
Endif 

Store  0  to  SNl ,SN2 ,SN3,SN4,SN5 ,SM1QTY,SM2QTY,SM3QTY,SM4QTY,SM5QTY 
Store  0  to  N1,N2,N3,N4,N5,M1QTY,M2QTY,M3QTY,M4QTY,M5QTY 
Store  0  to  STOTN,TOTQTY,TOTN,STOTQTY,mdate 
Store  1  to  linectr,pagectr,N, liner 
Go  top 
Do  printer 
Clear 
select  A 
Go  top 
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* Holds  one  of  item  from  property  file 

Do  while  .NOT.  Eof() 
Store  SN  to  stockn 
select  B 

store  class  to  classn 
Select  C 

^ Find  the  stock  number  which  is  the  same  as 

^ at  the  file  which  is  sorted  type  "IL" 

Seek  stockn 
If  foundO 

Do  while  .MOT.  Eof()  .AND.  sn=stockn 

Store  Date  to  mldate 

Store  VN  to  MIVN 

Store  Stockn+MIVN  to  mstock 

* Find  the  stocknumber  which  is  the  same  voucher 

* at  the  file  which  is  soreted  by  type  "RL" 

Select  A 

Seek  mstock 

If  foundO 

Store  date  to  m2date 
Store  qty  to  mqty 
Store  mldate-mZdate  to  mdate 
Do  case 

Case  mdate<7 
N1=N1+1 

Mlqty=Mlqty+mqty 
Case  mdate-7<7 
N2=M2+1 

M2qty=M2qty+mqty 
Case  (Mdate>  =  15  .and.  MdateOO) 
N3=N3+1 

M3qty=M3qty+mqty 
Case  (Mdate>=30  .and.  Mdate<60) 
N4=N4+1 

M4qty=M4qty+mqty 
Case  (Mdate>=6(J  .and.  MdateOO) 
N5=N5+1 

M5qty=M5qty+mqty 
Endcase 
Endif 

Store  NH-N2+N3+N4+N5  to  TOTN 

Store  M1QTY+M2QTY+M3QTY+M4QTY+M5QTY  to  TOTQTY 

Select  C 

Skip 
Enddo 
If  liner=l 


Oder  Shipping  Time' 
'  Report  Page  '  +  str(pagectr , 2) 

'  Date  :  '+Dtoc(date()) 

I 

To  :  The  3333  Logistics  Supprot  Command' 
From  :  The  150  Infanry  Division' 


7 
■? 

•?•> 
•> 

?? 

■> 

-> 

•> 

■> 

•? 

?? 
•p 

?? 
? 

■> 

'??    '   Total        7days      14days      30days 

??  '  eOdays' 

?  '  ' 

??  'Total  Q  ty  Freq  Q  ty  Freq  Q  ty  Freq  Q  ty   ' 

??  'Freq  Q  ty"" 

store  pagectr  +  1  to  pagectr 
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'   To  ' 

Dtoc(enddate)+' ) 
No    Stock  number 


From         ' 
('+dtoc(begdate)+' )  -  ( 


Endif 

Store  linectr  to  Z 

?  Str(Z,3)+'  •+stockn+substr(str(TOTN) ,5,6) 
??  substr(str(T0TQTY),5,6) 
??  substr(str(Nl) , 5 ,6 )+substr(Str(MlQTY 
??  substr(str(N2) , 5 ,6)+substr ( str(M2QTY 
??  Substr(str{N3) , 5 ,6 )+substr (str (M3QTY 
??  substr(str(N4) , 5 ,6 )+substr(Str(M4QTY 
Store  STOTN+TOTN  to  STOTN 
Store  STOTQTY+TOTQTY  to  STOTQTY 
Store  Slll+ra  to  SNl 
Store  SMIQTY+MIQTY  to  SMIQTY 
Store  SN2+N2  to  SM2 
Store  SM2QTY+M2QTY  to  SM2QTY 
Store  SN3+N3  to  SN3 
Store  SM2QTY+M2QTY  to  SH2QTY 
Store  SN4+M4  to  SN4 
Store  SM4QTY+M4QTY  to  SM4QTY 
Linectr=linectr+1 
liner=  liner+1 
If  liner=40*N 
■? 


'Material  Management  NCO  :   ' 

??  'Date  :  / /     ' 

?  'Material  Management  Officer  : ' 

??  'Date  :  / / ' 

Eject 
M  =  N  +  1 
Endif 

Endif 

If  sel="l" 

If  linectr=l 
Select  B 
Skip 

Store  class  to  classn 
Loop 
Endif 
Select  B 
Skip 
Endif 
If  (b->class<>classn)  .OR.  EOF() 

?  'Class  '+classn+'  ' 

?*  '  Subtotal  ' 

??  substr(str(STOTN) ,5,6)+substr(str(STOTQTY),5,6) 
??  substr  str(SNl),5,6  +  substr (Str(SMlQTY) , 5 ,6) 
??  substr(str(SN2),5,6)+substr(str(SM2QTY) ,5,6) 
??  Substr(str(SN3) , 5 ,6)+substr( str(SM3QTY) ,5,6) 
??  substr(str(SN4),5,6)+substr(Str(SM4QTY),5,6) 
■p    I  I 

Store  0  to  SNl ,SN2,SN3 ,SM4 ,SN5 , SM1QTY,SM2QTY,SM3QTY,SM4QTY,SM5QTY 

Store  0  to  Nl ,N2 ,N3 ,N4,N5 ,MlQTY,M2gTY,M3QTY,M4QTY,M5QTY 

Store  0  to  STOTN, TOTQTY,TOTN, STOTQTY, mdate 

Store  1  to  linectr 

Liner=liner+3 
Endif 
Enddo 
If  liner  >  1 

?  '  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  ^ ' 

??  '  Date  :  / / ^ 

?  '  ' 

?  'Material  Management  Officer  :  ' 

??  '  Date  :  / / ' 

Endif 
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If  mprint="Y" 

Eject 

Set  console  on 

Set  print  off 
Endif 

Close  databases 
Erase  Csproper.ndx 
Erase  RLMAST.DBF 
Erase  SRRL.NDX 
Erase  ILMAST.DBF 
Erase  SRIL.NDX 
Set  color  to  N/W 
v;ait 

Set  color  to 
@  9,15  clear  to  15,64 
@  9,15  to  15,64  double 
@  11,25  Say  "Finished  report  for  OST  " 

(a  13,25  Say  "Period  "+Dtoc(begdate)  +  "  -  "+Dtoc(enddate) 
N=0 
Do  while  n<35 

M=N+1 
Enddo 

Store  Space(16)  to  stockn 
Release  all 
Clear 


Return 
■k 


Eof  OST.prg 


d.  RPEIS 

i^-kik-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k  RPEIS. PRG      *  *  *  *  * -k -k -f^ -k -k -k -k  i;  *: -k -k -k  ■k  *: -k -k -k  ■k -k -k -k -k -k -k -k -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-k-k-kk-k-kkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkk-k 

*  Module  name....:  RPEIS. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  24.  1987  * 

*  Purpose :  Generate  Combat  essential  item                 * 

*  Stockout  history  report  to  higher  command.       * 

*  Called  by :  Reports. prg  * 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local, 


S,  Sts,  Mprint,  Mqty,  Mcost,  * 

kkkkkkkkkkkkkkkkkkkkkkkkkk-k-kkkkkkkkk-kkkkk-kk-k-kk-k-k-k-k-kk-kk-kkkk-kkkkkkkkkkkk 

Select  B 

Use  PROPERTY 

Copy  to  TEMPPROP  for  ESSENCE 

Use  TEMPPROP 

Index  on  Class+SN  to  CSproper 

Use  TEMPPROP  index  CSPROPER 

Select  A 

Use  STOCKOUT 

Index  on  SN  to  SNSTOK 

Use  STOCKOUT  index  SNSTOK 

Select  B 

Store  1  to  linectr,pagectr,N, liner 

Store  0  to  stsSO ,sts60, sts90, stsl20, stco30,stco60, stco90, stcol20 

Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20,msqty,mscost 

Go  top 

Store  CLASS  to  CLASSN 

Store  "  "  to  Mprint 

Do  printer 

Clear 

Do  while  .NOT.  Eof() 

Store  SN  to  STOCKN 

Store  NM  to  MNM 
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Select  A 
Seek  STOCKN 
If  found(). 

Do  while  .NOT.  Eof()  .AND.  sn=stockn 
Store  QTY  to  MQTY 
Store  QTY*UNITCOST  to  MCOST 
If  Dtoc(REFILLDATE)="  " 
Skip 
Loop 
Endif 

Store  REFILLDATE  to  FILLDATE 
Store  OUTDATE  to  SOUTDATE 
Bal  =  FILLDATE-SOUTDATE 
Do  case 

Case  bal  <=  30 

S30  =  SSO+mgty 
ScoSO  =  ScoiO+mcost 

Case  Bal  <=  60  .AND.  Bal>30 
S60  =  S60+mqty 
Sco60  =  ScobO+mcost 

Case  Bal  <=  90  .AND.  Bal>60 
S90  =  S90-i-mqty 
Sco90  =  Sco90+mcost 

Case  Bal  >  90 

S120  =  S120+mgty 
Scol20  =  Scol20+mcost 

Endcase 

Skip 
Enddo 

Store  S30+S60+S90+S120  to  SQTY 
Store  SCO30+SCO60+SCO90+SCO120  TO  SCOST 
If  liner=l 

?  '      ' 

?  '      ' 

?  '      ' 

?  '  Combat  Rssential  Item  ' 

??  'Stockout  Report  Page  '  +  str(pagectr,2) 

??  '  Date  :  '+Dtoc(date()) 

?  '  ' 

?  '    To  :  The  3333  Logistics  Supprot  Command' 
?  '  From  :  The  150  Infanry  Division' 
?  '  ' 

?  '  From  To  ' 

?  '  ('+Dtoc(begdate)+' )  -  (' 

??  Dtoc(enddate)+' ) ' 
?  '  ' 

?  '  No    Stock  number    ' 

??  '   Total      30days      60days      90days    ' 
??  '120days' 

?  '  ' 

??  'Total  Cost  Item  Cost  Item  Cost  Item  Cost   ' 
??  'Item  Cost' 
?  '  ' 

store  pagectr  +  1  to  pagectr 
Endif 

Store  linectr  to  Z 

?  Str(Z,3)+'  '+stockn+substr(str(sqty) ,5,6) 

??  substr(str(scost) , 5 .5) 

??  substr(str(S30) , 5 ,6 j+substr(Str(sco30) ,5,6) 

??  substr(str(s60),5 ,6 )+substr(str{ sco50)  ,5,6) 

??  Substr(str(s90) , 5 ,6)+substr(str (sco90) ,5,6) 

??  substr(str(sl20) , 5 ,6)+substr(Str(scol20) ,5,6) 

Store  msqty+sqty  to  msqty 

Store  mscost+scost  to  mscost 

Store  Sts30+s30  to  Sts30 

Store  Stco30+sco30  to  Stco30 
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store  Sts60+s60  to  Sts60 
Store  Stco60+sco60  to  Stco60 
Store  Sts90+s90  to  Sts90 
Store  Stco90+sco90  to  Stco90 
Store  Stsl20+sl20  to  Stsl20 
Store  Stcol20+scol20  to  Stcol20 
Linectr=linectr+1 
liner=  liner+1 
If  liner=40*N 

?  '  ' 

?  '  ' 

?  '  ' 

?' 

??  'Date 
Eject 

1 


Material  Management  NCO  : 

'Date  :  / / 

'Material  Management  Officer 
■"  ■    7 / ' 


N  =  N  + 

Endif 
Endif 
If  linectr=l 

Select  B 

Skip 

Store  Class  to  classn 

Loop 
Endif 
Select  B 
skip 
If  classoclassn  .OR.  Eof() 

?  'Class  '+classn+'  ' 

?'  '  Subtotal  ' 

??  substr(str(msqty) ,5,6)+substr(str(mscost),5,6) 
??  substr(str(Sts30),5,6)+  substr(Str(stco30) , 5 ,6) 
??  substr(str(sts60) , 5,6 )+substr(str(stco60) ,5,6) 
??  Substr(str(sts90),5,6)+substr(str(stco90) ,5,6) 
??  substr(str(stsl20) , 5 , 6)+substr(Str(stcol20) , 5 ,6) 
?  '  ' 

?  '  ' 

Store  0  to  sts30, sts60,sts90, stsl20,stco30, stco60, stco90,stcol20 
Store  0  to  S30, s60 , s90, sl20 , sco30,sco60, sco90,scol20,mscost,msqty 
Store  1  to  linectr 
Liner=liner+4 
Endif 
Store  class  to  classn 

Enddo 

If  liner  >  1 


?  'Matrial  Management  NCO  :  ^ 

??  '  Date  :  / / ■■ 

?  '  ' 

?  'Material  Management  Officer  :  

??  '  Date  :  / / ' 

Endif 

If  mprint  ="Y" 

Eject 

Set  print  off 

Set  console  on 
Endif 
Close  all 
Erase  SNstok.ndx 
Erase  tempprop.dbf 
Erase  csproper.ndx 
@  9,15  clear  to  15,64 
@  9,15  to  15,64 

d  11,25  Say  "Finished  report  for  Stockout  " 
@  13,25  Say  "Period  "+Dtoc(begdate)+"  -  "+Dtoc(enddate) 
N=0 
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Do  while  n<35 

N=N+1 
Enddo 

Release   all 
Clear 
Return 
i^ -k  EQf  Eis.prg  *■ 


e.   RPSOR 


■k-k-k-ki^-k-k-k-kk-k-k-k-k-k-k-k-k-k-k  RPSOR.  PRG     kkkkkkkkkkkk-kkkkkkk-kkkkkkkkkkk-k-kk 

k-k-kkkk-kkkkkkkk-kkkkkkk-kkk-kkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkk-kkk-k-k-kk 

*  Module  name....:  RPSOR. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  24.  1987  * 

*  Purpose :  Generate  Stockout  history  report                 * 

*  to  higher  command.  * 

*  Called  by :  Reports. prg  * 

kkkkkkkkkkkkkkkkkkkkkTukkkk-KT^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Select  B 

Use  PROPERTY  index  snproper 

clear 

Do  while  .T. 

Store  "  "  to  Classn,  Mprint 

Store  "  STOCKOUT  REPORT"  to  mtitle 

Do  select 

Store  "(OutDate>=Begdate  .AND.  outDate<=Enddate)"  to  period 

Do  case 

Case  upper(Chr(i))="l" 
Sel=''l" 
Select  B 

Index  on  Class+Sn  to  CSPROPER 
Select  A 
Use  stockout 


CAse 


Copy  to  TEMPOUT  for  &period 


upper(chr(i))="2' 
Sel=''2" 


@  14,30  Say  "Enter  Class  number(l-lO)  "  get  Classn 

(?  15,30  Say  "  (0  for  10)" 

Read 

If  classn  =  "0" 

Store  "10"  to  Classn 

Endif 

Select  A 

Use  stockout  INDEX  stockout 

Set  relation  to  sn  into  B 

Store  "&period  .AND.  b->class=' Seclassn' "  to  conditl 

Copy  to  TEMPOUT  for  &conditl 

Exit 
Case  upper(chr(i) )="3" 

Sel=''3" 

(a  16,30  Say  "Enter  stock  number"  get  stockn; 

pict  '9999-99-999-9999' 

Read 

Select  A 

Use  stockout  INDEX  stockout 

Set  relation  to  sn  into  B 

Store  "&period  .AND.  sn=' &stockn' "  to  conditl 

Copy  to  TEMPOUT  for  &conditl 

Exit 
Case  upper(chr(i) )="0" 

Close  databases 

Return 
Otherwise 

?  chr(7) 
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Endcase 
Enddo 
Select  A 
Use  TEMPOUT 
Index  on  SN  to  SNTEMP 
Use  TEMPOUT  index  SNTEMP 
If  EofO 

(?  10,18  Clear  to  15,58 
(?  10,18  to  15,58 
(a  11,20  SAY  "   Never  Stockout" 
(a  13,20  Say  "   Press  any  key  to  return...." 
Wait  "" 

Close  databases 
Erase  TEMPOUT. DBF  . 
Erase  SNTEMP. NDX 
Return 
Endif 

Do  printer 
Clear 

Store  1  to  linectr,paqectr,N, liner 

Store  0  to  Sts30,sts60,sts90,stsl20,stco30,stco60,stco90,stcol20 
Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20,msqty,mscost 
Go  top 

Do  while  .NOT.  Eof() 
Store  sn  to  stockn 
Select  B 
Store  nm  to  mnm 
Store  class  to  classn 
Select  A 
Seek  stockn 
If  foundO 

Do  while  .NOT.  Eof()  .AND.  SN=STOCKN 
Store  qty  to  mqty 
Store  qty*unitcost  to  mcost 
If  Dtoc(refilldate)="  " 
Skip 
Loop 
Endif 

Store  refilldate  to  filldate 
Store  outdate  to  soutdate 
Bal  =  (filldate)-(soutdate) 
Do  case 

Case  bal  <=  30 

S30  =  S30+mqty 
Sco30  =  ScoiO+mcost 

Case  Bal  <=  60  .AND.  Bal>30 
S60  =  S60+mqty 
Sco60  =  ScobO+mcost 

Case  Bal  <=  90  .AND.  Bal>60 
590  =  S90+mqty 
Sco90  =  Sco90+mcost 

Case  Bal  >  90 

S120  =  S120+mqty 
Scol20  =  ScolZO+mcost 

Endcase 

Skip 
Enddo 

Store  S30+S60+S90+S120  to  SQTY 
Store  SCO30+SCO60+SCO90+SCO120  TO  SCOST 
If  liner=l 

?  '      ' 

?  '      ' 

?  '     ' 

?  '  Stockout  Report' 

??  '  Page  '  +  str(pagectr,2) 

??  '  Date  :  '+Dtoc(date()) 

?  '  ' 
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To 
From 


Mo 


7 
•? 

7 

77 
77 
7 

??  'Total  Cost 
??  'Item  Cost' 
store  pagectr  + 
Endif 


The  3333  Logistics  Supprot  Command' 
The  150  Infanry  Division' 


Stock  number 


Total 

IZOdays 


30days 


60days 


90days 


Item  Cost  Item 
1  to  pagectr 


Cost  Item  Cost 


,5,6) 
,5,6) 
,5,6) 


Store  linectr  to  Z 

?  Str(Z,3)+'  '+stockn+substr(str(sqty) ,5,6) 

??  substr(str(scost) , 5,6) 

??  substr(str(S30), 5 ,6 )+substr(Str (sco30 

??  substr(str ( s60) , 5 ,6 )+substr( str( sco60 

??  Substr(str(s90) , 5 , 6 )+substr (str ( sco90 , ,^ ,^, 

??  substr(str(sl20) , 5 ,6)+substr (Str(scol20) ,5,6) 

Store  msqty+sqty  to  msqty 

Store  mscost+scost  to  mscost 

Store  Sts30+s30  to  Sts30 

Store  Stco30+sco30  to  Stco30 

Store  Sts60+s60  to  Sts60 

Store  Stco60+sco60  to  Stco60 

Store  Sts90+s90  to  Sts90 

Store  Stco90+sco90  to  Stco90 

Store  Stsl20+sl20  to  Stsl20 

Store  Stcol20+scol20  to  Stcol20 

Linectr=linectr+1 

liner=  liner+1 

If  liner=40*N 

?  '  ' 

?  '  ' 

?  '  ' 

7  I  I 

?  'Material  Management  NCO  :  ' 

??  'Date  :  / /      ' 

?  'Material  Management  Officer  : ' 

??  'Date  :  / / ' 

Eject 

N  =  N  +  1 
Endif 
Endif 
If  sel="l" 

If  linectr=l 

Select  B 

Skip 

Store  Class  to  classn 

Loop 
Endif 
Select  B 
skip 
Endif 
If  b->class<>classn  .OR.  Eof() 

?  'Class  '+classn+'  ' 

77  I • 

?' '  Subtotal  ' 

??  subs tr(str (msqty) , 5 ,6)+substr(s tr (mscost) ,5,6) 
??  substr{str(Sts30) ,5,6)+  substr(Str(stco30) , 5 ,6) 
??  substr(str(sts60) , 5 ,6)+substr(str(stco60) ,5,6) 
??  Substr(str(sts90),5,6)+substr(str(stco90) ,5,6) 
??  substr(str(stsl20) , 5 ,6)+substr(Str(stcol20) ,5,6) 
7  I  I 

Store  0  to  sts30 , sts60 , sts90 , stsl20 , stco30 , stco60, stco90, stcol20 
Store  0  to  S30,s60,s90,sl20,sco30,sco60,sco90,scol20, mscost, msqty 
Store  1  to  linectr 
Liner=liner+3 
Endif 
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Enddo 

If  liner  >  1 

?  '       .  ' 

?  '  ' 

?  'Matrial  Management  NCO  :  

??  '  Date  :  / / ' 

?  '  ' 

?  'Material  Management  Officer  :  

??  '  Date  :  / / ' 

Endif 

Close  all 

If  mprint  =  "Y" 

Eject 

Set  console  on 

Set  print  off 
Endif 
If  sel="l" 

Erase  csproper.ndx 
Endif 

Erase  tempout.dbf 
Erase  SNtemp.ndx 
Set  color  to  N/W 
Wait 

Set  color  to 
(§  9,15  clear  to  15,64 
(?  9,15  to  15,64  double 

@  11,25  Say  "Finished  report  for  Stockout  " 
@  13,25  Say  "Period  "+Dtoc(begdate)+"  -  "+Dtoc(enddate) 
N=0 
Do  while  n<35 

M=N+1 
Enddo 
Clear 

Store  space(16)  to  stockn 
Return 
ir A  EQf  sOR.prg  * 
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4.       ANALYSIS 

a.  ANALYSIS  STARTUP 

■k-k-k-kik-k-k-k-k-k-k-k-k-k-k-k-k-k-k  ANALYSIS. PRG         *: -k -k -k -k -k -k  * -k -k  i^ -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k 

•kk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkk-kkkk-kk-kkkk-kkkk-kkkkkkkkkkkk 

*  Module  name....:  ANALYSIS. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Sept  25.  1987  * 

*  Purpose :  Analyze  the  reorder  point,  safety  level          * 

*  EOQ  by  using  probabilistic  model  * 

*  (Fixed  Order  Size  System)  * 


k 


*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local 


Called  by :  PHAIN.prg  * 

"■  '  '      '"  '   ANEOQ.prg,  ANLEADT.prg  * 

TODAY. STD.STOCKN  * 

BEGDATE , ENDDATE , CTITLE , MLEADT , MQTY , ORDERC ,         * 
*  SERVL,FRATE,RSTD,LSTD,N,M,CSC,CSL.  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkk-kkkk-kkkkkk-k-kkkkkkkkkkkkk-kk 

DO  WHILE  .T. 

store  space(8)  to  BEGDATE, ENDDATE 

Store  space(50)  to  CTITLE 

Store  "N"  to  CSL,CSC 

Store  space(16)  to  STOCKN,MREQNO 

Store  0  to  MLEADT, MQTY, RDEM, ORDERC, SCOST, SERVL, FRATE ,RSTD,LSTD 

Store  0  to  DATEBAL,LEADDEM,T0TDATE,MLEADT1 

Store  1  TO  N,M 

CLEAR 

Text 


THIS  SYSTEM  USES  THE  FIXED  ORDER  SIZE  SYSTEM  WITH  PROBABILISTIC 
MODEL.  THE  FIXED  ORDER  SIZE  SYSTEM  IS  COMPLETELY  DEFINED  BY  THE 
ORDER  QUANTITY  Q|  AND  REORDER  POINT  B|.   THE  RISK  OF  STOCKOUT 
OCCURS  AFTER  REORDER  POINT.   TO  GET  Q|,B|,  YOU  HAVE  TO  DECIDE 
SERVICE  LEVEL,  OR  STOCKOUT  COST  PER  UNIT.   THIS  SYSTEM  ASSUMED 
BACKORDER  CASE  WITH  SERVICE  LEVEL  INSTEAD  OF  LOSTSALES  CASE. 

Endtext 

@  19,17  SAY  "Enter  stock  number  :  " 

(a  21,12  SAY  "Enter  time  period  you  want  to; 

test(         -         )" 

SET  COLOR  TO  N/W 

(a  21,48  SAY  "01/01/87" 

(?  21,59  SAY  "12/31/87" 

SET  COLOR  TO 

@  22,50  SAY  "Begin    End  date" 

0  24,20  SAY  "Leave  BLANK  any  space  to  Exit  " 

(a  1,10  TO  3,60  DOUBLE 

(?  4,1  TO  23,77  DOUBLE 

(§2,15  SAY  "ANALYSIS   of  TRANSACTION" 

(§3,62  SAY  "Today  :  "  +DTOC(DATE( ) ) 

@  19,38  GET  STOCKN  PICT  "9999-99-999-9999" 

READ 

IF  STOCKN='  ' 

EXIT 
END  IF 

@  21,48  GET  BEGDATE  PICT  "99/99/99" 
(?  21,59  GET  ENDDATE  PICT  "99/99/99" 
Read 
If  Begdate="  "  .OR.  Enddate="  "  .OR.  Stockn="  " 

Exit 
Endif 
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store  Ctod(Begdate 
Store  Ctod(Enddate 


to  Begdate 
to  Enddate 


If  BEGDATE>=ENDDATE 

Clear 

(a  15,  25  SAY  "The  End  date  MUST  be  later  than  the  begin  date' 

(§17,  30  SAY  "Press  ENTER  to  redo " 

Wait  "  " 

Loop 
Endif 

Do  ANLEADT 
If  Rdem<=0 

Clear 

Loop 
Endif 

Do  ANEOQ 

EMDDO 

CLOSE  DATABASES 

RELEASE  ALL 

ST0CKM=SPACE(16) 

RETURN 

■k 


■*  Eof:  Analysis. prg  *• 


b.  ANLEADT 


*  A  A*****:******7^*  ************************************************  *•*•**** 


Module  name 

Author 

Date 

Purpose .... 

Called  by.. 

Modules  called 

Variales  used. 
Public 
Local 


Leadt.Prg 

Park,  Taeyong 

Sept  30.  1987 

Calculate  Lead  time  to  Supply  for  given  Item 

Analysis. Prg 

Proc.prg 

Mleadt , Mqty , Mzulu 


(Date>=Begdate  .AND.  Date<=Enddate) ; 
(Date>=Begdate  .AND.  Date<=Enddate) ; 


Set  procedure  to  ANPROC 
SET  CONSOLE  OFF 

Clear 

(§  10,15  to  14,65 

@  11,25  Say  "  Please  do  NOT  touch" 

(a  13,25  Say  "   Working " 

Select  B 

Use  PROPERTY  index  snproper 

Select  A 

Use  master  index  sctmast 

Copy  to  RLMAST  for  type="RL"  .AND, 

.AND.  sn=stockn 
Copy  to  ILMAST  for  type="IL"  .AND, 

.AND.  sn=stockn 
Copy  structure  to  DEM  fields  qty, type, date 
Select  E 
Use  DEM 
Select  C 

Use  ILMAST 

Index  on  REQNO  to  SRIL 

Use  ILMAST  index  SRIL 

Select  D 

Use  RLMAST 

Index  on  REQNO  to  SRRL 

Use  RLMAST  index  SRRL 

Select  C 

If  Eof() 

?  chr(7) 
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(3  15,  25  SAY  "You  receive  nothing  from  LSC  between" 
(a  16,  30  SAY  Dtoc(Begdate)  +  "  -  "  +Dtoc(Enddate) 

@  18,  25  SAY  "Press  ENTER  to  return " 

Wait  "  " 
Close  databases 
Erase  RLMAST.DBF 
Erase  SRRL.NDX 
Erase  ILMAST.DBF 
Erase  SRIL.NDX 
Erase  DEM. DBF 
Release  all 
Set  console  on 
Return 
Endif 

'^ To  calculate  the  lead  time  of  an  item 

Go  top 

Do  while  .NOT.  Eof() 

Store  reqno  to  MREQNO 
Store  date  to  ILDATE 
Select  D 
Seek  Mreqno 
If  EofO  .OR.  Bof() 
Select  C 
Skip 
Loop 
Else 

Store  Date  to  RLDATE 
Do  while  reqno=mreqno  .AND.  .NOT.  Eof() 
N=N+1 

Datebal=(c->Date)  -  (Date) 
Totdate=Totdate+Datebal 
If  rldate>date 

Store  Date  to  Rldate 
Endif 
Skip 
Enddo 
Endif 
Select  A 

Sum  qty  for  sn=stockn  .AND.  type="RD"  .AND.; 
(date>=RLDATE  .AND.  date<=ILDATE)  to  leaddem 
Select  E 
Append  blank 

Replace  qty  with  leaddem 
Replace  type  with  "LD" 
Replace  date  with  Rldate 
Store  0  to  leaddem 
Select  C 
Skip 
Enddo 

Store  Totdate/N  to  Mleadtl 
store  Hleadtl/30  to  mleadt 
Store  0  to  N 

* To  get  Annual  average  demand  (1  year  moving  average) 

Select  A 

Store  "date>=begdate  .AND.  date<=enddate"  to  Condx 

Sum  qty  for  sn=Stockn.AND. type="RD" .AND.  &condx  to  Rdem 

Store  enddate-begdate  to  totd 

Store  Rdem*365/totd  to  Rdem 

Store  Round(totd/30,0)  to  Nmax 

* To  get  standard  deviation  of  annual  demand  from  monthly  demand 

Go  top 

Store  begdate  to  mdate 

Store  " (sn=stockn.and. type=' RD' )"  to  condl 

Store  "(date>=mdate+30*N  .AND.  date<=mdate+30*(N+l) )"  to  cond2 

Do  while  N  <  Nmax 

Sum  qty  for  &condl  .AND.  &cond2  to  mqty 

Select  E 

Append  blank 
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Replace  qty  with  mqty 

Replace  date  with  (mdate+30*n) 

Replace  type  with  ''DM" 

N=  N+1 

Select  A 

Store  0  to  mqty 
Enddo 
Select  E 

Do  Std  with  "qty","Type='DM"' 
Close  databases 
Erase  RLMAST.DBF 
Erase  SRRL.IJDa 
Erase  ILMAST.DBF 
Erase  SRIL.NDX 
Erase  DEM. DBF 
SET  CONSOLE  ON 
SET  PROCEDURE  TO 
RETURN 
* *  Eof  ANLEADT.prg  *• 


c.  ANEOQ 

kkkkkkkkkkkkkkkkk-kkkkkkkkkkkk^kkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkk 

*  Module  name ANEOQ. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  OCT  1.  1987  * 

*  Purpose :  To  calculate  Economic  Order  Quantity ,Reoder  * 

*  Point,  Safety  level,  and  Requisition  Object       * 
'  '  "  "  ■         ANALYSIS. prg  * 

None  * 

* 

STD, TODAY,  * 

CSC . CSL . RDEM . MEOFZ . MTZ . MSERVL . ORDERC . FRATE        * 

*  * 

■kk-k-kkkkkkkkkkk-kkkkk-kkkkkkkkkk-k-kkkkkkkkkkkkk-kk-kkkkkkkkkkkkkkkkkkkkkkkkk 


*  Called  by, 

*  Modules  called 

*  Variales  used. . 

*  Public. 

*  Local, 


Set  decimals  to  5 

Select  C 

Use  ASL  index  INASL 

Select  B 
Use  NORMAL 
Select  A 

Use  PROPERTY  index  snproper 
Set  relation  to  SN  into  C 
Do  while  .T. 
Seek  stockn 

Store  "PRESENT"  to  title 
Clear 

Store  "Is  this  record  right?(Y/N) :"  to  ctitle 
Store  Ltrim(str(ASL->ROP) )  to  Mrop 
Store  Ltrim(str(ASL->SL) )  to  Msl 
Store  Ltrim(str(ASL->RO) )  to  Mro 
Store  Ltrim(str(ASL->OST))  to  Most 
Do  while  .T. 

Set  format  to  EOQ 
Read 

If  check  =  "Y" 
Set  format  to 
Exit 
Endif 
Enddo 

* Holding  cost 

If  Frate=0 

Store  15.0  to  Frate 
Endif 


135 


store  (Frate/100)*Property->unitcost  to  Holdc 

* ordering  cost 

If  Orderc  =  0 

Store  20.0  to  Orderc 
Endif 
Do  case 

Case  (CSL="Y"  .AND.  CSC="Y" ) .OR. (CSL="N"  .AND.  CSC="N") 

?  Chr(7) 

@  10,  15  clear  to  16,65 

(a  10,15  to  14,65 

(a  12,20  SAY  "You  have  to  select  ONE  of  Choices" 

(a  15,20  Say  "Press  ENTER  to  redo " 

Store  0  to  Frate , Orderc, Scost,Servl 

Store  "N"  to  CSC,CSN 

Store  "X"  to  check 

Wait  "  " 

Loop 

* Holding  cost  rate 

Case  CSL="N"  .AND.  CSC="Y" 

QO  =  Sqrt(2*Rdem*0rderc/Holdc) 

Msigfofb=Holdc*QO/(scost*Rdem) 

Select  B 

Locate  for  sigfofb  <=msigfofb 

Store  Tz  to  Mtz 

Store  Eofz  to  meofz 

Case  CSL="Y"  .AND.  CSC="N" 
If  Servl=0 

Store  85.000  to  servl 
Endif 

Store  servl/100  to  mServl 
QO  =  Sqrt(2*Rdem*0rderc/Holdc) 
Scost=Holdc'^QO/ (mServl^Rdem) 
Store  1-ServI  to  mpofs 
Select  B 

Locate  For  pofs<=mpofs 
Store  Tz  to  Mtz 
Store  Eofz  to  meofz 
Endcase 

Store  0  to  EOQ ,MOST,MROP ,MSL,MRO 

Store  Sqrt(2*Rdem*(0rderc+Scost*Meofz) )/Holdc  to  EOQ 
Store  Mieadtl  to  Most 

Store  Rdem*Mleadt/12  +  Mtz*Std*Sqrt(Mleadt)  to  Mrop 
Store  Mrop  -  (Rdem*Mleadt/12)  to  Msl 
Store  EOQ+Mrop  to  Mro 
Store  "Calculated"  to  title 

Store  "Do  you  want  to  change  the  old  records  with  this?:"  to  ctitle 
Select  C 

Store  Ltrim(str(MROP) )  to  Mrop 
Store  Ltrim(str(MSL))  to  Msl 
Store  Ltrim(str(MRO) )  to  Mro 
Store  Ltrim(str(MOST) )  to  Most 
Seek  stockn 
Set  format  to  EOQ 
Read 
If  check  ="Y" 

Set  format  to 
Replace  RO  with  Val(Mro) 
Replace  Rop  with  Val(Mrop) 
Replace  SL  with  Val(Msl) 
Replace  OST  with  Val(Most) 
Replace  date  with  today 
Exit 
Else 

Set  format  to 

Store  0  to  Frate, Orderc, Scost, Servl 
Store  "N"  to  CSC,CSN 
Store  "X"  to  check 
Endif 
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Enddo 

Close  databases 

Set  decimals  to 

Return 

■^ *  Eof  EOQ.prg  *• 


d.  ANPROC 

***-**7i<:*Tk:A***AA:*A*7k*  PROC  .  PRG       -A -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k -k  * -k  :k -k -k -k  i< -k -k -k -k  i< -k -k -k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name....:  Proc.prg  * 

*  Author :  Park,  Taeyong  * 

Sept  30.  1987  * 

Procedures  for  calaulating  statics  * 

k 

FieldName  * 

Max,Min,Std,Var  * 


*  Date 

*  Purpose 

*  Variales  used 

*  Public 

*  Local -.,.,..^..,  w  ^«, — 

kkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkk-kkkkkkkkkkkkkkkkkkkkkk-kk-kkk-k 

PROCEDURE  Max 

PARAMETERS  fieldname , Condition 
SET  FILTER  TO  &Condition 
GO  TOP 

Max  =  -99999 
DO  While  .MOT.  EOF() 

IF  &FieldMame  >  Max 

Max  =  &FieldName 
Endif 
Skip 
ENDDO 

SET  FILTER  TO 
RETURN 

PROCEDURE  Min 

PARAMETERS  FieldName , Condition 
SET  FILTER  TO  ScCondition 
GO  TOP 
Min  =  99999 
DO  While  .NOT.  EOF() 

IF  &FieldName  <  Min 

Min  =  ScFieldName 
Endif 
Skip 
ENDDO 

SET  FILTER  TO 
RETURN 

PROCEDURE  Var 

PARAMETERS  FieldName , Condition 

SET  FILTER  TO  &Condition 

GO  TOP 

COUNT  TO  N 

SUM  (ScFieldName)  TO  TOT 

SUM(&FieldName       2)  TO  TOTsq 

Correction  =  TOT      2/N 

Var  =  (TOTsq  -  Correction)/ (n-1 ) 

SET  FILTER  TO 
RETURN 

PROCEDURE  Std 

PARAMETERS  FieldName , Condition 

SET  FILTER  TO  &Condition 

GO  TOP 

COUNT  TO  N 

SUM  (ScFieldName)   TO  TOT 

SUM(&FieldName  2)   TO  TOTsq 

Correction  =  TOT  2/N 

Variance  =   (TOTsq  -  Correction)/ (n-1) 
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Std  =  SQRT(Variance) 
SET  FILTER  TO 
RETURN 

PROCEDURE  Mzulu 

PARAMETER  KDATE 

STORE  "bl/01/"+substr("&XDATE" ,7,2)  to  Zlday 

STORE  (CTODC'&XDATE")  -  CTOD(Zlday)+l )  TO  Z2DAY 

STORE  SUBSTR("&XDATE'',8)+SUBSTR(STR(1000000+Z2day)  ,8,3)  to  MZULU 

RETURN 

*- - *  EOF  ANPROC. Procedure'^ - * 
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5.       MANAGEFL 

a.  MANAGEFL  MENU 

******************       MANAGEFL . PRG     ******************************* 
*********************************************************************** 

*  Program.:  Managefl.PRG  * 

*  Author..:  PARK,  TAEYOMG  * 

*  Date :  AUG  21,  1987  * 

*  Notice..:  Copyright  1987  * 

*  Notes...:  Menu  file  for  file  management  system,  called  by  pmain.prg  * 

***********************************************************  *?r*****7r**** 

Do  while  .T. 
check  =  "X" 
CLEAR 

(a  1,15  TO  3,55  double 
(§  4,1  TO  23,77 
(§  6,3  TO  21,37 
@  5,4  TO  7,20 
(a  6,5  SAY  SPACE(15) 
@  6,41  TO  12,75 
(a  5,42  TO  7,59 
0  6,43  SAY  SPACE(16) 
(§  14,41  TO  21,75 
(a  13,42  TO  15,59 
(a  14,43  SAY  SPACE  (16) 

(a  2,17  SAY  "Management  of  files" 
(a  6,6  SAY  "  Edit  files" 
(a  6,44  SAY  "   Addition" 
(a  14,44  SAY  "Information" 
(§  8,47  SAY  "l.To  add  Customer  (CI)" 
(a  9,47  SAY  "2. To  add  Property  (SN)" 
(a  10,47  SAY  "3. To  add  ASL  (SN)'' 
(a  9,7  SAY  "4. To  change  Customer  (CI)" 
(a  11,7  SAY  "5. To  change  Property  (SN)" 
(a  13,7  SAY  "6. To  change  ASL  (SN)" 
(a  15,7  SAY  "7. To  change  Master  (SN+REQNO)" 
(a  17,7  SAY  "8. To  change  Batch  (SN+REQNO)'' 
(a  20,7  SAY  "9. Query  on  files" 

(a  16,47  SAY  "Today  is  " 

(a  16,60  SAY  today 

(a  18,43  SAY  "Stock  number  :  " 

(a  19,55  SAY  "(Or/And)" 

d  20,43  Say  "Customer  code  :  " 

SET  COLOR  TO  N/W 

(a  18,59  SAY  Stockn  pict  "9999-99-999-9999" 

(a  20,59  SAY  mci  pict  "9999" 

SET  COLOR  TO 

STORE  ""  TO  SEL 

(a  22,58  SAY  SEL 

@  22,  8  SAY  "Enter  Selection  (1  -  9,  or  0  to  go  to  mainmenu)  :  :|" 

* The  following  lines  are  for  select  loop 

i=0 

DO  WHILE  i=0 

i=INKEY() 

(a  22,58  SAY  "" 

IF  UPPER(CHR(i))$"0123456789" 
(a  22,58  SAY  CHR(I) 
EXIT 

ENDIF 

i=0 
ENDDO 

Do  case 

Case  CHR(I)  =  '1' 

(a  18,59  SAY  "XXXX-XX-XXX-XXXX" 
(a  20,59  get  mci  pict  "9999" 
READ 
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DO  ADDCUST 
Case  CHR(I)  =  '2' 

@  18,59  get  stockn  pict  "9999-99-999-9999" 
@  20,59  SAY  "XXXX" 
READ 

DO  ADDPROP 
Case  CHR(I)  =  '3' 

(?  18,59  get  stockn  pict  "9999-99-999-9999" 
(?  20,59  Say  "XXXX" 
READ 

DO  ADDASL 
Case  CHR(I)  =  '4' 

@  18,59  SAY  "XXXXX-XX-XXX-XXXX" 
(§  20,59  get  mci  pict  "9999" 
READ 

DO  EDITCUST 
Case  CHR(I)  =  '5' 

@  18,59  get  stockn  pict  "9999-99-999-9999" 
(?  20,59  Say  "XXXX" 
READ 

DO  EDITPROP 
Case  CHR(I)  =  '6' 

0  18,59  get  stockn  pict  "9999-99-999-9999" 
@  20,59  Say  "XXXX" 
READ 

DO  EDITASL 
Case  CHR(I)  =  '7' 

(?  18,42  clear  to  20,  65 

@  18,43  SAY  "Stock  number  :  "  get  stockn  pict; 
"9999-99-999-9999" 

@  19,43  Say  "Customer  code  :  "  get  mci  pict  "9999" 
d  20,43  Say  "Transaction  type  :  "  get  mtype  pict  "!!" 
READ 

DO  EDITMAST 
Case  CHR(I)  =  '8' 

@  18,42  clear  to  20,  65 

(?  18,43  SAY  "Stock  number  :  "  get  stockn  pict; 
"9999-99-999-9999" 

(a  19,43  Say  "Customer  code  :  "  get  mci  pict  "9999" 
d  20,43  Say  "Transaction  type  :  "  get  mtype  pict  "!!" 
READ 

DO  EDITBAT 
Case  CHR(I)  =  '9' 
Do  Manageq 
CHECK  =  "I" 
CASE  1=27  .OR.  CHR(I)  =  '0' 
?  Chr(7) 
RETURN 
OTHERWISE 

?  CHR(7) 
ENDCASE 
ENDDO 

CLOSE  DATABASES 
RETURN 
*: A  Eof:  Managefl.prg  * 


b.  ADDASL 

•k^-k-k^k-k-k-k-k-k-ki^iK-kir-k-k-k-k-k-k  ADDASL. PRG      kkkkkkkkkkkkkkkkkk-kkkkkkkkkk 

kkkk-kkkkkkk-kkkkkkkkkkkkk-kkk-k-kkkk-kkkkkkkk-kk-k-k-kkk-k-kkkk-kkkk-kkkkkkkkkkkkkkk 

*  Module  name....:  ADDASL. prg  * 

*  Author Park,Taeyong  * 

*  Date :  Aug  25.  1987  * 

*=   Purpose :  Add  Authorized  Storage  List  item(ASL)  into        * 

*  ASL  file  by  manual  * 

*  Called  by :  MANAGEFL.prg  * 
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*  Modules  called  :  None  "^ 

*  Variales  used. . :  * 

*  Public. :  CHECK.  * 

If  stockn  =  "   " 

Return 
Endif 
Select  A 

Use  ASL  INDEX  INasl 
Select  B 

Use  property  INDEX  Snproper 
Select  A 

* Set  up  loop  for  adding  new  ASL. 

Store  "X"  to  dcheck,  fcheck 
Dloop  =  .T. 
Do  while  Dloop 
Clear 

* check  to  see  if  stock  number  already  exists. 

Seek  StockN 
Do  case 

Case  found() 

(§  15,10  say  SN  +  "  is  Already  exist  in  ASL  file  !" 
d  17,  20  say  "  Do  you  want  to  change  ?  "  get  check 
Read 

Check  =upper  (check) 
If  check  =  "Y'' 
Clear 

Set  format  to  Editasl 
Read 

Set  format  to 
Endif 
Case  .not.  found() 
Clear 

Append  blank 
Replace  SN  with  StockN 
Replace  date  with  date() 
Do  while  .T. 

Set  format  to  ASL 
Read 

If  Upper(dcheck)  =  "Y" 
bet  format  to 
Exit 
Endif 
Enddo 

Endcase 

Store  "X"  to  tcheck 

Clear 

@  17,20  say  "  Do  you  want  to  check  property  file?"  get  tcheck 

Read 

Tcheck  =  upper(tcheck) 

If  Tcheck  =  "Y'' 

Select  B 

Clear 

Seek  StockN 

Do  case 

Case  foundO 

Store  "X"  to  tcheck 

(§  15,15  say  StockN  +  "  is  already  exist  in  property  file  " 
@  17,20  say  "  Do  you  want  to  change  ?  "  get  tcheck 
Read 

Tcheck  =  upper(tcheck) 
If  tcheck  =  "Y'' 
Clear 

Set  format  to  Editprop 
Edit  recnoO 
Set  format  to 
Endif 

Dloop  =  .F. 
Case  .NOT.  found() 
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Clear 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  prop 

Read 

fcheck  =  upper(fcheck) 

If  fcheck  =  "Y" 

Replace  tvalue  with  unitcost  *  onhand 
Set  format  to 
Dloop  =  .F. 
Exit 
Endif 
Enddo 
Endcase 
Endif 

Dloop  =  .F. 
Enddo 
Close  all 

Store  space(16)  to  stockn 
Release  all 
Return 
* *  EOF  Addasl.prg  * 


c.  ADDPROP 

*7lt**3k-7ltA****  *************************************************  A  ****** 

*******************       ADDPROP. PRG    ***************************** 
********************************************************************** 

*  Module  name....:  ADDPROP. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Aug  20.  1987  * 

*  Purpose :  Add  new  properties  into  property  file  * 

*  Called  by :  MAMAGEFL.prg  * 

*  Modules  called  :  None  * 

*  Variales  used. . :  * 

*  Public. :  TODAY  * 
********************************************************************** 

If  StockN  =  "      " 

Return 
Endif 
Clear 
Select  A 

Use  ASL  INDEX  INasl 
Select  B 
Use  property  INDEX  Snproper 

Today  =  date() 
check  =  "X" 
stock  =  .T. 
Do  while  Stock 
clear 

Seek  StockN 

Store  "X"  to  fcheck 

Do  case 

Case  foundO 

clear 

Store  "X"  to  tcheck 

@  15,10  say  StockN  +  "  is  already  exist  in  property  file" 

(a  17,  20  Say  "Do  you  want  to  change  it  NOW  ?"  get  tcheck 

Read 


Tcheck  =  upper(tcheck) 
If  tcheck  =  "N'' 


clear 

Stock  =  .F. 
Exit 
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Endif 

Set   format   to  Editprop 

Edit  recno() 

Replace  tvalue  with  unitcost  *  onhand 

Set  format  to 

Exit 

Case  .NOT.  found() 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  prop 

Read 

fcheck  =  upper(fcheck) 

If  fcheck  =  ''Y'' 

Replace  tvalue  with  unitcost  *  onhand 

Sec  format  to 

Stock  =  .F. 

Exit 

Endif 

Enddo 

Endcase 

clear 

Store  "X"  to  acheck 

@  15,  20  SAY  "Is  this  "  +  stockN  +  "  ASL  item  ?"  get  acheck 

Read 

Acheck  =  upper  (acheck) 

If  acheck  =  "Y" 

Select  A 

Seek  stockN 

Store  "X"  to  dcheck 

Do  case 

Case  foundO 

(a  20,10  say  SN  +  "  is  Already  exist  !  ,  ; 

Do  you  want  to  change  ?  "  get  check 

Read 

check  =upper  (check) 

If  check  =  "Y'' 

Set  format  to  EDITASL 

Edit  RecnoO 

Set  format  to 

Exit 

Endif 

Case  .not.  found(') 

Append  blank 

Replace  SN  with  StockN 

Replace  date  with  date() 

Do  while  .T. 

Set  format  to  ASL 

Read 

Dcheck  =  upper(dcheck) 

If  dcheck  =  "Y'' 

Set  format  to 

Exit 

Endif 

Enddo 

Endcase 

Endif 

Enddo 

Close  all 

Store  space(16)  to  stockn 

Release  all 

Return 

* 


Eof  Addprop.prg  * * 
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d.  ADDCUST 

it***************************************************************** 

ir-k-k-k-k-k^-k-k-k-K-k-k-k-k-k-k-k-k  ADDCUST  .  PRG       kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name ADDCUST. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Aug  25.  1987  * 

*  Purpose :  Add  customer  into  customer  file  * 

*  Called  by :  MAMAGEFL.prg  * 

*  Modules  called  :  None  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kk 

Use  Customer  index  Cicust 

Cust=  .T. 

Store  "Y"  to  Dcheck 

Do  while  Cust 

k check  proposed  customer  code 

Seek  Mci 
Do  case 

Case  Mci  =  "    " 
Clear 
Cust  =  .F. 
Case  found( ) 

@  10,15  clear  to  15,65 

@  10,15  to  15,65 

d  12,20  say  "Customer  code  "  +  Mci  +  "  Already  exists  !" 

d  13,27  Say  "Press  any  key  to  return " 

?  chr(7) 
Mci  =  space(4) 
Wait  "  ^' 
Case  .not.  found() 
Append  blank 
Replace  CI  with  mci 
Replace  date  with  date() 
Do  while  .T. 

Set  format  to  cust 
Read 

If  dcheck  =  "Y" 
Set  format  to 

Replace  fundoh  with  fund  -  expend 
Mci  =  space(4) 
Exit 
Else 

Chr(7) 
Endif 
Enddo 
Endcase 
Enddo 

Store  mtype  to  mtypel 
If  mtypel  <>  "   " 

Return 
Endif 
Close  all 
Release  all 
Return 
k *  £0F  addcust.prg  * * 


e.  EDITASL 

kkkkkkkkkkkkkkkkk-kk-kkk-kk-kkkkkkkkkkkkkkkkkk-kkk-k-kkkkkk-k-k-kkkkkkkkkkkkkkk-k 
kkkkkkkkkkkkkkkkkkk  EDITASL. PRG  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name....:  EDITASL. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Aug  28.  1987  * 

*  Purpose Edit(delete  or  change)  contents  of  entry  * 
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*  of  ASL  file. 

*  Called  by :  MANAGEFL.prg 


„^^. ^,  .  * 

*  Modules  called' i  ASLVfrnt"''"  "^  * 


Use  ASL  index  INASL 
Clear 

More  =  .T. 
Do  while  More 
Seek  STOCKN 
Do  case 

Case  STOCKN  =  "  " 
More  =  .F. 

Case  found() 

Set  format  to  EDITASL 
Edit  recno() 
Set  format  to 


Case 


Store  "Y"  to  check 

@  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)' 

Read 

If  check  =  "Y" 

Set  talk  on 

Pack 

Set  talk  off 

Stockn  =  space(16) 

more  =  .F. 
Endif 

.NOT.  foundO 

(a  15,30  Say  "No  such  STOCK  NUMBER  code  in  the  file  !" 
More  =  .F. 
Stockn  =  space(16) 
Wait 


get  check  pict  " ! " 


Endcase 

Enddo   (while  more) 

Close   all 

Release   all 

Return 

Tit 


■*  Eof  EDITPROP.prg  *■ 


f.    EDITBAT 


■k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k        DEITBAT  .  PRG        k-kkkkkk-k-kk-kk-kkk-k-k-k-kk-kkkkk-kkkkkkkk-k 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkk 


Module  name 

Author 

Date 

Purpose .... 

Called  by. . 

Modules  called 

Variales  used. 
Public 
Local 


EDITBAT. prg 
Park,  Taeyong 
Aug  28.  1987 
Edit  Batch  file 
MANAGEFL.prg 
EDITBAT. fmt 

STOCKN , TODAY , MVNC 


kkkkkkkkk-kkkkkkkkk-k-kkirkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Use  Batch  index  SNCIBAT 
Clear 
More  =  .T. 
Do  while  More 

Store  space(16)  to  MVNC 

@  15,10  Say  "Enter  Voucher  number  if  you  know 

Read 

Do  case 

Case  STOCKN  =  "  "  .AND.  Mvnc  =  "  " 
Clear 
Close  all 


"  get  mvnc 
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Return 
Case  stockn  #  "  "  .AND.  Mvnc  =  "  " 
Search  =  stockn 

Case  stockn  #  "  "  .AND.  Mvnc  #  "  " 
Search  =  stockn  +  upper(mvnc) 

Case  stockn  =  "  "  .AND.  Mvnc  #  "  " 
Search  =  upper(Mvnc) 
Endcase 
Seek  search 
If  foundO 

Set  format  to  EDITBAT 

Edit  recno( ) 

Set  format  to 

Store  "Y"  to  check 

@  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 

Read 

If  check  =  "Y" 

Set  talk  on 

Pack 

Set  talk  off 

Stockn  =  space(16) 

more  =  .F. 
Endif 

Else 

(a  15,10  Say  "No  such  STOCK  NUMBER  or  Voucher  Number  in  the  file  !" 

More  =  .F. 

Stockn  =  space(16) 

Wait 
Endif 
Enddo 

Close  databases 
Release  all 
Return 
* *  Eof  EDitbat.prg  * * 


g.  EDITCUST 

^■k-k:k-k-k*-k-k:k-k-k-k-k-k-k-k-k-k  EDITCUST  .PRO     -k-k^-k-k-k-k-k-k-k-k-k^-k-k^-k-k-k-kir-k-k-k-k-k-k-k-kir-k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  Module  name....:  EDITCUST. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date :  Aug  28.  1987  * 

*  Purpose :  Edit  Customer  record  from  customer  file  * 

*  Called  by :  MANAGEFL.prg  * 

*  Modules  called  :  EDITCUST. fmt  * 

*  Variales  used. . :  * 

*  Local. . :  MCI  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-k'k-kit-kick-k-k-k-k'kir-k'kif'k-k^-k'ki^-kkkkkkk-kkk 

Use  CUSTOMER  index  CICUST 
Clear 

More  =  .T. 
Do  v;hile  More 
Seek  Mci 
Do  case 

Case  mci  =  "  " 

More  =  .F. 

Case  found() 

Set  format  to  EDITCUST 
Edit  recno() 
Set  format  to 

Store  "Y"  to  check 

@  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 
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Read 

If  check  =  "Y" 

Set  talk  on 

Pack 

Set  talk  off 

Mci  =  space(4) 

more  =  .F. 
Endif 
Case  .NOT.  found() 

@  15,35  Say  "No  such  customer  code  in  file  !" 
More  =  .F. 
Mci  =  space(4) 
Wait 

Endcase 
Enddo  (while  more) 
Close  all 
Release  all 
Return 
■k *  Eof  EDITcust.prg  '^ 


h.  EDITMAST 

ir-k-k-k-k-k-k-k-ki-c-k-k-kiK-k-k-k-k'k  EDITMAST  .PRG    *:**:-*!*-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-kk-k-k-k*:-k-k-k-k-k 

*  Module  name....:  EDITMAST. prg  * 

*  Author :  Park,  Taeyong  * 

*  Date Aug  28.  1987  * 

*  Purpose :  Edit  master  file  * 

*  Called  by :  MANAGEFL.prg  * 

*  Modules  called  :  EDITMAST. fmt  * 

*  Variales  used. . :  * 

*  Local.. :  STOCKN.MCI  * 

*****  A  A*5ic***jit***7lr  A  A^tIt***************************************  ********** 

Use  MASTER  index  SCTMAST 

Clear 

(B  10,10  to  15,62 

@  11,30  Say  "Warning!" 

(?  13,15  Say  "This  process  is  not  allowed  to  every  person," 

@  14,15  Say  "  Enter  password  to  continue."  get  mpass  pict  "!!!!" 

Read 

If  pass  <>  mpass 

Close  all 

Return 
Endif 

Set  filter  to  SN=stockn  .AND.  ci=mci 
Clear 

(a  10,10  Say  "Enter  the  transaction  type  :  "  get  mtype  Pict  "!!" 
Read 

More  =  .T. 
Do  while  More 
Seek  Mtype 
Do  case 

Case  STOCKN  =  "  " 
More  =  .F. 

Case  found() 

Set  format  to  EDITMAST 
Edit  recnoO 
Set  format  to 

Store  "Y"  to  check 

(a  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 

Read 

If  check  =  "Y" 
Set  talk  on 
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Case 


Pack 

Set  talk  off 
Mci  =  space(4) 
Stockn  =  space(16) 
more  =  .F. 
Endif 

,NOT.  foundO 

@  15,35  Say  "Mo  such  STOCK  NUMBER  code  in  file  !" 
More  =  .F. 
Stockn  =  space(16) 
Wait 


Endcase 

Enddo  (while  more) 

Set  filter  to 

Close  all 

Release  all 

Return 

■k 


■*  Eof  EDITMAST.prg 


i.  EDITPROP 


*********************************************************************** 
*******************  EDITPROP.PRG  ******************************* 
*********************************************************************** 


*  Module  name 

*  Author 

Date 

Purpose .... 
Called  by. . 
Modules  called 
Variales  used. 

Public 
Local. 


EDITPROP. prg 
Park,  Taeyong 
Aug  28.  1987 
Edit  property  file 
MANAGEFL.prg 
EDITPROP. fmt 


STOCKN. MCI 


*********************************************************************** 

Use  PROPERTY  index  SNPROPER 
Clear 

More  =  .T. 
Do  v/liile  More 
Seek  STOCKN 
Do  case 

Case  STOCKN  =  "  " 
More  =  .F. 

Case  foundO 

Set  format  to  EDITPROP 
Edit  recnoO 
Set  format  to 

Store  "Y"  to  check 

@  15,  20  Say  "Pack  marked  records  NOW  ?  (Y/N)"  get  check  pict  "!" 

Read 

If  check  =  "Y" 

Set  talk  on 

Pack 

Set  talk  off 

Mci  =  space(4) 

ST0CKN=SPACE(16) 

more  =  .F. 
Endif 


Case 


Endcase 


,NOT.  foundO 

(a  15,35  Say  "No  such  STOCK  NUMBER  code  in  file 
More  =  .F. 
Mci  =  space(4) 
Wait 
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Enddo  (while  more) 

Close  all 

Release  all 

Return 

* 


•*  Eof  EDITPROP.prg  *■ 


j.  MANAGEQ 


■k-k-k-k-k-k-k-k-k-k-k-k-k-ki^-k-k-k-k  MANAGED  .  PRG        kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk^kkkk-kkkkkkkk-kkkk-kkkkkkkk-kkkkkk-kk-kkkkkkkk 

k 

k 

k 

k 

k 

k 

k 

k 

k 


Module  name 

Author 

Date 

Purpose .... 

Called  by. . 

Modules  called 

Variales  used. 
Public 
Local. 


MANAGEQ . PRG 
Park,  Taeyong 
OCT  28.  1987 
CONSULT  CONTENTS 
MANAGE FL.prg 
SETUP . FRM 


OF  FILES 


k 
k 
k 
k 
k 
k 
k 
k 

STOCKN.MCI  * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkk-kkkk-kk-kkk-kk-kkkkkkkkkk-kkkkk-k-kkkkkkkk 

Close  databases 

Clear 

Set  talk  off 

set  echo  off 

Use  property 

on  Class  to  Clssprop 
5erty  index  snproper, Clssprop 


Index 

Use  Pro 

Select 

Use  ASL  index  inasl 

Select  A 

Set  relation  to  SN  into  B 

title  =  "Query  on  Stock  number" 

Mok="Y" 

Store  space(16)  to  stockn 

Store  "  "  to  Mclass,Mconf 

Do  while  .T. 

Clear 

@  4,25  say  title 

8,15  Say  "Options" 


11,17  Say  "1" 
12,17  Say  "2, 
13,17  Say  "3, 
15,17  Say  "4, 
17,15  Say  "Enter 
2,1  to  23,75 
Store  ""  to  sel 
(§  17,29  Get  sel 
i=0 

Do  while  i=0 
i=inkey( ) 
If  chr(i)$"1234" 

Exit 
Endif 
i=0 
Enddo 

(a  17,29  Say  Chr(i) 
If  chr(i)=^4" 

Exit 
Endif 
Do  case 
Case 


Stock  number" 
Class" 
All" 

Return  to  main  menu" 
Option:   " 


chr(i)="l" 
(a  11,36  Say  "Enter  stock 
Get  Stockn  pict  "9999-99- 
Read 

If  Stockn="  " 
?  Chr(7) 


number  " 
999-9999" 
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Loop 
Endif 

Set  filter  to  Sn='&Stockn' 
Set  Order  to  1 
Do  setup 

Report  form  stockrpl 
Set  filter  to 
Case  chr(i)="2" 

(a  12,36  Say  "Enter  Class  Number:"  Get  Mclass  pict  "9" 
@  13,38  Say  "0|  for  class  10" 
Read 

If  Mclass="  " 
?  Chr(7) 
Loop 
Endif 

Set  filter  to  Class=' ScMclass  ' 
Set  Order  to  2 
Do  setup 

Report  form  stockrpl 
Set  filter  to 
Case  chr(i)="3" 

@  13,26  Say  "<-  Is  this  your  select(Y/N) :"  Get  Mconf  pict  "!" 
Read 

If  Mconf ="M" 
?  Chr(7) 
Loop 
Endif 

Set  Order  to  2 
Do  setup 

Report  form  stockrpl 
Otherwise 
Loop 
Endcase 

If  Upper(Mok)="Y" 
bet  console  on 
Set  print  off 
Set  Order  to  1 
Else 

(?  24,17  Say  "Press  any  key  to  continue..." 
Wait"" 
Endif 

Clear 
Enddo 

Close  databases 
Release  all 
Erase  clssprop.ndx 
Store  space(16)  to  stockn 
Clear 
Return 
* *  Eof  MANAGEQ.prg  * * 


150 


APPENDIX  F 
SCREEN  FORMAT 


1.   TRANSACT 


a.  BATCH 


************* 

:***** 
[***** 


********? 
********? 


@ 
@ 

@ 
@ 

(a 
(? 
(a 


@  12 

(?  12 

@  14 

(?  14 

(?  16 

@  16 

(§  16 

(?  16 

@  16 

(?  18 

(a  18 

(a  23 

(a  1 

(a  4 

(a  7 

(a  10 

(a  8 

* 


11 

47 

61 

8 

25 

8 

8 

53 

10 

18 

32 

13 

32 

18 

32 

39 

47 

56 

18 

32 

30 

5 

4 

5 

5 

38 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

GET 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

SAY 

GET 

SAY 

TO 

TO 

TO 

TO 

TO 


********************************************************* 

*****  i^odule  name.  .  .  .  :  Batch,  fmt  *********************** 
****************x**************************************** 

Requset  for  issue" 
Today  " 


today 
Requested  From 
CUSTOMER->CDESC 
Send  To 


The  150  Infantry  Division" 


Type  of  transaction  :  (RD)      Request  No 
MREONO   PICT  "9999! 1-9999-9999" 


(  Customer's) 


Request  for  Issue  to  Div 

Stock  Number  :" 

BATCH->SN  pict  "9999-99-999-9999" 

Description   :" 

PROPERTY->NM 

Unit  :" 
PROPERTY->UNIT 
Price  :" 

PROPERTY->UNITCOST 
$" 

Quantity  :" 
BATCH- >QTY 
"Is  this  record  correct  ?  "  get  batcheck  pict 


II  ( II 


3 
20 

7 
10 

9 


40 
70 
69 
69 
38 


Eof. batch. fmt  * * 


b.  MAST 

************** 

************** 

************** 

(a 

2 

9 

SAY 

(a 

3 

43 

SAY 

(a 

3 

56 

Say 

SAY 

(a 

5 

7 

(a 

6 

7 

SAY 

(a 

8 

6 

SAY 

(a 

8 

48 

GET 

(a 

9 

6 

SAY 

(a 

9 

34 

SAY 

(a 

9 

50 

GET 

(a 

12 

19 

SAY 

@ 

12 

32 

GET 

(a 

14 

19 

SAY 

(a 

14 

32 

GET 

(a 

16 

34 

SAY 

(a 

16 

,  41 

GET 

@ 

18 

19 

SAY 

(a 

18 

,  32 

GET 

(a 

18 

,  50 

SAY 

******************************************************** 

****  Module  name.  .  .  .  :  Mast,  fmt  ***************''f'***'***''f** 
******************************************************** 

mtitle 
"Today  is. . ." 

Today 

mhost  +  mcdescl 

"   "+mcust  +  mcdesc2 
"Type  of  transaction  :       Voucher  No  :" 

VNl  PICTURE  "9999! 1-9999-9999" 

Mtypea 
"Request  Number:" 

MREQNO   PICTURE  "9999 !! -9999-9999" 
"Stock  Number:" 

MASTER->SN  PICTURE  "9999-99-999-9999" 
"Description  :" 

PROPERTY->NM 
"Unit  :" 

PR0PERTY->UNIT   FUNCTION  "!AAA"   PICTURE  "XXXX" 
"Quantity     :" 

MASTER- >QTY 
"Reusable?  :  " 
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(a 

18, 

62 

@ 

20, 

19 

@ 

20, 

32 

(? 

23, 

30 

(? 

4, 

4 

0 

1, 

6 

@ 

7, 

5 

@ 

10 

(a 

8, 

32 

•  . 

GET  MASTER->Misc 

SAY  "Price         :" 

GET   PROPERTY->UNITCOST 

SAY  "Is  this  record  correct  ?  ' 

TO  21,  71 

TO   3,  40 

TO   7,  70 

TO   10,  70 
TO   9,  32 
■ *  Eof  Mast.fmt  *• 


get  zcheck  pict  "X' 


TURN  IN 


^■k-k-k-k 
kkkkk 
kkkkk 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkk-kkkkkkk-kkkkkkkk 

kkkkkkkk 

kkkkkkkkk7 


(a  11 

(a  11 

@  13 

0  13 

(a  15 

(a  15 

(a  15 

(a  15 

(a  17 

(a  17 

(a  17 

(a  17 

(a  20 


(a 
(a 
(a 
(a 
(a 


(a  10 
@  8 

k 


11 

46 
58 

6 
13 

8 
13 

6 
10 
52 
21 
37 
21 
37 
16 
25 
37 
51 


37 

51 

34 

5 

4 

5 

36 

37 

5 

37 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 


16   SAY 
25   GET 


SAY 

GET 

SAY 

TO 

TO  1 

TO 

TO 

TO 

TO  1 

TO 


Screen  format  for  Turnin  prgram  a**'^*'^**'^*'^*****'^****** 

^kkk  kkkkk  k  kkkkkkkk  kkkkk  kkkJfk-Kkkkkkkkkk-kkkkkkkkkkkkkkkkk-k 

'Request  for   turn-in" 
'Today " 

Today 
'From  :" 

MCDESCl 
'To  :" 

MCDESC2 

'Type  of  transaction  :  (TD)  " 
'Request  for  turn-in         Request  No  :" 

BATCH->REQNO   PICTURE  "9999 !! -9999-9999" 
'Stock  number  :" 

BATCH->SN  PICTURE  "9999-99-999-9999" 
'Description   :" 

PROPERTY- >NM 
'Unit  :" 

PROPERTY->UNIT 
'Reuseable?  :" 

BATCH->MISC 
'Price :" 

PROPERTY->UNITCOST 
'Quantity    :" 

BATCH->QTY 
'Is  this  record  correct  ?"  Get  Zcheck  pict  "! 

3,  40 
9,  70 
7,    69 

4,  36 
4,  37 
0,  69 
9,  37 
*  Eof  TURNIN. fmt   * 


PICTURE    "!XXX" 


d.  CANCMAST 


kkkkkk 
kkkkkk 
■k-kkkkk 


(a 
(a 
(a 
(a 
(a 
@ 


2, 

3, 
6, 
6, 
8, 
8, 


(a  10, 

(a  10, 

(a  13, 

(a  13, 

(a  13, 

(a  13, 


kkk-k-kkkkk-kkk-k-k-k-k-k-kkkk-k-kkk-kkkkk-kk-kkk-kkkkkkk-kkkkkk-kkk-k-kkkkkkkk-k-kk-k 

kkkkkkkkkkkk   Module  name....:  CANCMAST. FMT  '■""f***************''^*** 

kkkkkkkkkkkkkkkkkkkkkk-kkkkkk-kkkkkkkkkkkkkk-k'k-kir-k-k^'^-k-k-irir'k-k-k-kk-k-k^-k-k 

9  SAY  "Cancel  Request  for  issue  item" 

44  SAY  "Today  . . "+Dtoc(date( ) )+" ("+Zulu+" )" 

25  SAY  "Stock  number  : '' 

40  SAY  MASTER->SN 

25  SAY  "Customer  Code:" 

40  SAY  MASTER->CI 

24  SAY  "Request  number:" 

40  SAY   MASTER->REQNO 
13  SAY  "Quantity  -.^ 
24  SAY  MASTER->QTY 
33  SAY  "Price  :" 

41  SAY  MASTER->UNITCOST 
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(?  13,  51  SAY  "Date  :(" 

(§13,  58   SAY  MASTER->DATE 

@  13,  62   SAY  ")" 

(a  17,  14  SAY  "Is  this  record  what  you  want  to  cancel?  (Y/N) 

Get  checks  pict  " ! " 

(a  1,   6  TO   3,  40 

(a  4,   5   TO  15,  70 

(?  16,   5   TO  18,  70 

* *  Eof  CANCMAST.fmt  * 


2.        MANAGEFL 

a.  ASL 

■k-ki^-k^-k-kif-k-k-k-k-k-k-k-k-k-k    I>Iodule  name....:  Asl.flTlt  **************'*:**'^******** 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


@  11 

(?  11 

@  13 

(?  13 

(B  16 

(?  16 

@  16 

(?  18 

(?  18 

(§  23 

@  1 

(a  4 

* 


8 
45 
20 
44 
20 
44 
20 
44 
20 
44 
20 
44 
50 
18 
44 
35 
5 
4 


9999-99-999-9999' 


SAY  "Authorized  storage  list  file" 
SAY  "Today  is  "  get  today 

SAY  "Stock  number 

GET   Stockn   PICTURE 

SAY  "Reorder  Point 

GET  ASL->ROP 

SAY  "Safety  Level 

GET   ASL->SL 

SAY  "Requisition  Objective 

GET   ASL->RO 

SAY  "Order  Shipping  Time 

GET  ASL->OST 

SAY  "days" 

SAY  "Resource  control  number  : 

GET  ASL->RCN   PICTURE  "9999" 

SAY  "  Is  this  record  correct  ? 

TO   3,  40 


get  dcheck  pict 


II I II 


TO   20,    70 


■*  Eof.Asl.fmt   *• 


b.  CUST 


■kkkkkkkkk 
■kkkkk  Pnc 
^■kkkk-kkkk 


kkkkkkkkkkkkk-kk-k-k-kkk-k-k-k-kk-k-k-kk-kk-kkk-k-kk-k-k-kk-k-k-k-kk-k-kkkkkkkkkkkkkk 

t.fmt  (CUSTOMER  file  screen  format  called  by  ADDCUST)******** 

kkkkkk-kkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


(a 
(a 
(? 
(? 
(a 
(a 
(a 
(? 
(§ 


(a  10 

@  10 

PICTURE 

(a  12 

(a  12 

(a  15 

(§  15 

(a  15 

(a  17 

(a  17 

(a  18, 


13 
43 
62 
13 
28 
47 
57 
22 
28 
19 
28 


23 
37 
18 
28 
40 
28 
40 
22 


File" 
II 


SAY  "Customer 

SAY  "Today  is  

SAY  CUSTOMER->DATE 
SAY  "Customer  Code" 
SAY   CUSTOMER->CI 
SAY  "Priority" 
GET   CUSTOMEft->PRIORITY 
SAY  "Name" 

GET   CUSTOMER->CDESC 
'Address" 
CUSTOMER->ADDRESS 


SAY 

GET 


FUNCTION 


'S30"; 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX' 
GET   CUSTOMER->ZIPCODE 
SAY  "Zip  code" 
SAY  "Fund  :" 
GET   CUSTOMER- >FUND 
SAY  "$  Allowed" 

GET   CUSTOMER->EXPEND  PICTURE  "9999999.99" 
SAY  "$  Expediture" 
SAY  " " 


PICTURE  "9999999.99' 
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d  23,  35  SAY  "Is  this  record  correct  ? 

@  1,   6   TO   3,  40 

(§4,   5   TO  20,  70 

* *  Eof  CUST.fmt  *-• 


get  dcheck  pict 


II I II 


■k-k-k-k-k 
kkkkk 
kkk-kk 


c.  PROP 

k-kk-kkkkk 
k kkkkkkk 
kkkkkkkk 


(3 
(? 


@  10 
(3  10 

(a  10 

(?  10 

(?  13 

(?  13 

(a  15 

@  15 

(?  15 

@  16 

(?  18 

(a  18 

@  23 

(§  1 

(?  4 

* 


12 
44 
62 
22 
38 
22 
38 
38 
22 
25 
38 
46 
54 
25 
38 
25 
38 
47 
25 
20 
54 
35 
5 
4 


SAY 

SAY 

SAY 

SAY 

GET 

SAY 

GET 

GET 

SAY 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

GET 

SAY 

SAY 

SAY 

GET 

SAY 

TO 

TO 


kkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkk 

kkk  i^odule  name.  .  .  .  :    ProD.fmt   **f*******'********'*'*:******** 

kkkkkkkkkkk-kkkkkkkkkkkkk%kkk-kkkk-kkkk-kkkkkkkkkk-kkkkkkkkk-kk 

Property  Book  file" 

Today  " 

Today 

Stock  number  :" 

Stockn  PICTURE  "9999-99-999-9999" 

Serial  MO  :" 
PROPERTY->SERIALNO 
PROPERTY- >NM 
Description  :" 
Unit  :" 
PROPERTY->UNIT 
Class  :" 
PROPERTY->CLASS   PICTURE  "99" 

On  hand  :" 
PROPERTY- >ONHAND 

Price  :" 
PROPERTY->UNITCOST 


Is  this  combat  essential  item  ?  :" 
PROPERTY->ESSENCE 
"Is  this  record  correct  ?  :  "  get  fcheck  pict  "!" 
3,  40 
20,  70 
*  Eof.  Prop.fmt  * 


d    EDITBAT 


■k-kkir-k-k-k-k-k-kk-kk-k 

kkkkk  Editbat. 

kkkkkkkkk-kkkkk 


(? 

2 

7 

SAY 

@ 

3 

46 

SAY 

(a 

3 

61 

GET 

(a 

5 

23 

SAY 

(a 

5 

40 

GET 

(a 

7 

23 

SAY 

(a 

7 

40 

GET 

(a 

9 

23 

SAY 

(a 

9 

40 

GET 

(a 

11 

14 

SAY 

@ 

11 

35 

GET 

(a 

11 

50 

SAY 

(a 

11 

60 

GET 

(a 

13 

14 

SAY 

(a 

13 

35 

GET 

@ 

13 

50 

SAY 

(a 

13 

60 

GET 

@ 

13 

69 

SAY 

(a 

14 

35 

SAY 

(a 

17 

7 

SAY 

(a 

18 

7 

SAY 

(a 

19 

13 

SAY 

End 

Aban 

don 

(a 

1 

,   5 

TO 

kkkkk-kkk-kkkk-kkkkkkkkkkkkkkkkkk-kk-k-k-k-k-k-kkkkkkkkkkkkkk-k-kkkkk 

fmt  (BATCH  file  scrreen  format  called  by  EDITBAT)  ******* 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkfrkkkkkkkkkkkkkkkkkkkkkkk-k-k 

Edit(change  or  delete)  Batch  file" 

Today " 

BATCH->DATE 

Stock  number 
BATCH->SN 
Voucher  number 
BATCH- >REQMO 

Customer  Code 
BATCH->CI 
Type  of  action 
BATCH->TYPE 
Posted  :" 
BATCH->POSTED 

Quantity  :" 
BATCH- >QTY 
Unitcost  :" 
BATCH->UNITCOST 
$" 

Date  :  "+Dtoc(BATCH->DATE) 
Insert  mode)  :  Ins  (Record)  Next  :  PgDn" 

Delete)     Character  :Del        Previous  :  PgUp" 
Field:  ctrl+Y  Record:ctrl+  U  (Done/Save)  : ; 
Esc" 
3,  40 
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(3  4,  5  TO  15,  70 
(a  16,  5  TO  20,  70 
(a  17,    35     TO   19,    35 


•*  Eof  EDITBAT.fmt   *■ 


e.   EDITCUST 


******  Editmast.fmt  (MASTER  file  screen  format  called  by  EDITMAST)***** 


@ 

(a 
(§ 
@ 
(a 
(a 
(a 
(a 
(a 
@ 
(a 


@  10 

(a  10 

(a  12 

@  12 

(a  13 

(a  13 

(a  13 

@  13 

(a  14 

(§  14 

(a  17 

(a  18 

(a  19 
ctr 

(a  1 

(a  4 

(a  16 

(a  17 

* 


1+E 


10  SAY  "Edit/Change  Master  file" 

47  SAY  "Today " 

61  SAY  DTOC(DATE()) 

20  SAY  "Stock  Number  :" 

36  GET   MASTER->SM   PICTURE  "9999-99-999-9999" 

14  SAY  "Customer  code  :" 

31  GET   MASTER->CI 

43  SAY  "Action  Type  :" 

58  GET   nASTER->TYPE 

13  SAY  "Request  Number  :" 

31  GET  MASTER->VN   PICTURE  "9999 !! -9999-9999" 

31  GET   HASTER->REQNO  PICTURE  "9999 !! -9999-9999 

50  SAY  "Customer's"^ 

12  SAY  "Quantity  -." 

24  GET  MASTER->QTY 

12  SAY  "   Price  :" 

24  GET  MASTER->UNITCOST 

30  SAY  "$  Reusable  ?  :" 

58  GET  MASTER->MISC 

29  SAY  "Date  :" 

36  GET   HASTER->DATE 

7  SAY  "(Insert  mode)  :  Ins 

7  SAY  "(Delete)     Character  :Del 

13  SAY  "Field:ctrl+Y  Record:  ctrl+U 
nd  Abandon  :Esc" 

5  TO   3,  40 

5  TO  15,  70 

5  TO  20,  70 
35  TO  19,  35 
*  Eof  EDITMAST. fmt  * 


(Record)  Next  :  PgDn" 
Previous  :  PgUp" 
(Done/Save)  : ; 


f.  EDITASL 


kkkkkk 
kkkkkk 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

kkkk   Edii 

kkkkkkkki 


(a 
(a 
(a 
(a 
(a 
(a 
(a 
(a 
(a 
(a 


(a  10 

(a  10 

(a  10 

(a  10 

(a  12 

(a  12 

(a  14 

(a  14 

(a  17 


.tasl.fmt  (ASL  screen  format  called  by  EDITASL)*********** 

^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk^^kkkkkkkkkk-kkkkkkkkkk 

6  SAY  "Edit  Authorized  Storage  List  file" 
47  SAY  "Today  " 

60  SAY   DTOC(DATE()) 

20  SAY  "Stock  number  :" 

36  GET  ASL->SN 

10  SAY  "Reorder  Point  :" 
26  GET  ASL->ROP 

38  SAY  "Order  shipping  time  :" 

60  GET   ASL->OST 

64  SAY  "days" 

11  SAY  "Safety  Level  :" 
26  GET   ASL->SL 

38  SAY  "  Date  :" 

60  GET  ASL->DATE 

10  SAY  "Requisition  Objective  :" 

34  GET  ASL->RO 

23  SAY  "Resource  control  number  :" 

50  GET   ASL->RCN 

7  SAY  "(Insert  mode)  :  Ins  (Record)  Next  :  PgDn" 
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@  18, 

7 

SAY  "(Delete) 

(§  19, 

13 

SAY  "Field:    Y 

@  1, 

5 

TO   3,  40 

@  4, 

5 

TO  15,  70 

(?  16, 

5 

TO  20,  70 

(a  17, 

35 

TO  19,  35 

* 

«  •  —  * 

Character 
Record: 


:Del 


*  Eof  EDITASL.fmt  *■ 


Previous 
(Done/Save) 


PgUp" 
End 


Abandon    :E 


g    EDITPROP 

'^**  Editprop.fmt    (PROPERTY   file   screen   format  called  by  EDITPROP)****** 

i^:■k■k•k■ki(■k7f^fif■k7r■k•kyr■k■k■k■k■kiri^*:■k■ky^i^i^■k^^i':i^i^■kif■^i^iKir■k■k^kiKi^■ki<::ki<:7^ 


@ 
(? 

(a 


@  12 
@  12 
(?  12 
(§  12 
(?  12 
(?  14 
@  14 
(§  14 
@  17 
(a  18 
(?  19 
Ctrl 
@  1 
(a  4 
@  16 
(a  17 


12 

46 

61 

7 

23 

45 

57 

7 

23 

15 

23 

30 

48 

54 

62 

14 

23 

35 

49 

59 

30 

49 

59 

7 

7 

13 

End 

5 

5 

5 

35 


SAY 
SAY 
SAY 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
GET 
SAY 
SAY 
GET 
SAY 
SAY 
SAY 
SAY 


Edit  property  file" 

Today  " 

DTOC(TODAY) 

Stock  Number  :" 

PROPERTY->SM 

Serial  Mo  :" 

PROPERTY->SERIALNO 

Nomenclature  :" 

PROPERTY- >NH 

Unit  :" 

PROPERTY->UNIT 

Essential  item?  :" 

PROPERTY->ESSENCE 

Class  :" 

PROPERTY->CLASS 

Onhand  :" 

PROPERTY- >ONHAND 
Price  :" 

PROPERTY->UNITCOST 

$" 

Total  Value  :" 

PROPERTY- >TVALUE 

$" 
Insert  mode)  :  Ins 
Delete)     Character 

Field:  ctrl+Y  Record: 


Abandon    :Esc" 


(Record)   Next 
:Del  Previous 

ctrl+U  (Done/Save) 


PgDn" 
PgUp" 


TO  3 
TO  15 
TO  20 
TO    19 


40 
70 
70 
35 


■*  Eof  EDITPROP.fmt   *• 


h.  EDITCUST 

******  Editcust.fmt  (CUSTOMER  file  screen  called  by  EDITCUST)********** 

(3  2,   9  SAY  "Edit  or  Delete  CUSTOMER  file" 

(a  3,  46  SAY  "Today " 

(a  3,  60  SAY  TODAY 

(a  5,   9  SAY  "Customer  :" 

(a  5,  20  GET  CUSTOMER->CI 

(a  5,  25  SAY  "code        Priority  :" 

(a  5,  48  GET   CUSTOMER->FRIORITY 

(a  7,  20  GET   CUSTOMER->CDESC 

(a  7,  51  SAY  "Description" 

(?  8,  20  GET   CUSTOMER->ADDRESS   FUNCTION  "S30"  ; 

PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

(a  8,  51  SAY  "Address" 

(a  9,  20  GET   CUSTOHER->ZIPCODE 

(a  9,  51  SAY  "Zipcode" 
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(?  11, 

9 

SAY  "Fund  allwed  :" 

@  11, 

23 

GET   CUSTOMER->FUMD 

0  12, 

23 

GET   CUSTOMER->EXPEND 

(?  12, 

36 

SAY  "Expend" 

@  13, 

23 

GET   CUSTOMER->FUNDOH 

(?  13, 

36 

SAY  "On  hand" 

@  14, 

33 

SAY  "Last  edit  date  :" 

(§  14, 

51 

GET   CUSTOMER- >DATE 

@  17, 

7 

SAY  "(Insert  mode)  :  Ins 

SAY  "(Delete)     Character  :Del 

(Record)  Next 

:  PgDn" 

@  18, 

7 

Previous 

:  PgUp" 

@  19, 

13 

SAY  "Field:ctrH-  Y  Record:ctrl+  U 

(Done/Save) 

•  / 

ctrl+End 

Abandon  :Esc" 

@  1, 

5 

TO   3,  40 

§  4, 

5 

TO  15,  70 

@  16, 

5 

TO  20,  70 

@  17, 

35 

TO  19,  35 

* 



*  Eof  EDITCUST.fmt  *-- 



3.       ANALYSIS 

a.  EOQ 


z-k-k-k-k-k-k-k-k-kif-k  Module   name....:    EOO .  fmt   **************************** 


^-kkkkki 
kkkkkki 
kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk^kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


Clear 


(a 


2, 
5, 
5, 
6, 


+Rtrim 
(a  8, 
+  "  $/" 
(a  10, 
+Rtrim 
@  12, 
+  "  Mon 
@  14 
@  14 
@  15 
@  15 
(a  16 
(a  17 
(a  17 
(a  17 
(a  18 
(a  18 
(a  18 
@  21 
@  21 
(a  22 
@  22 
(a  24 
@  1 
(a  4 

(a  20 
* 


21 
40 
11 
40 
5 

14 
40 
55 
16 
40 
55 
5 

45 
15 
45 
5 

13 
1 
1 


"+Ltrim(str(mLeadt) ) ; 
$/order" 


%" 


17   SAY  "INFORMATION   for  A  N  A  L  Y  S  I  S" 
12  SAY  "You  selected  stock  number  :" 
40   SAY  PROPERTY->SN 

17  SAY  "("+Rtrim(PROPERTY->NM)+",  "+"Unit:"; 
(PROPERTY->UNIT)  +  '',  Class  :  "+PROPERTY->CLASS  +  "  )  " 

18  SAY  "Purchasing  price(P)  :  "+Ltrim(str(property->unitcost) ) ; 
+Ltrim(PROPERTY->UNIT) 

21  SAY  "Annual  Demand(R)  :  "+Ltrim(str(Rdem) )+"  " ; 
( p rope rtY->unit)+"/ year" 
14  SAY  "^Lead  time(OST)  in  Month 
th(s)" 

SAY  "Ordering  cost(C)  : 

GET  Orderc  pict  "9999.99" 

SAY  "Holding  cost  unit  per  year 

Get  Frate  pict  "99.99" 

SAY  "(Select  one  of  these)" 

SAY  "Stockout  cost(lf  Known)  :         $/unit' 

GET  Scost  pict  "9999.99" 

Say  "Select?"  get  CSC  pict  "'" 

SAY  "Service  Level  in  year 

GET  Servl  pict  "99.9999" 

SAY  "Select?"  get  CSL  pict  "!" 

SAY  ""+title+"r  Reorder  point  :"  +Mrop 

SAY  "Safety  Level  :"+  Msl 

SAY  "Requisition  objective  :"+  Mro 

SAY  "Lead  Time  :  "+Most 

SAY  space(50-Len(Ctitle))+(Ctitle)  get  check  pict 

TO   3,  61    DOUBLE 

TO  19,  74    DOUBLE 

TO  23,  74 


%" 


II I II 


DOUBLE 
*  Eof 


EOQ. fmt 


157 


LIST  OF  REFERENCES 


1.  Korea  Army  College,  Logistics  Management,  Jinhae,  Korea,  April  30  1984 

2.  Administrative  Refence  09-17-1.  Sational  Defense  logistics  Terminology,  ROK 
DoD,  Seoul,  Korea,  Januan."  1985. 

3.  Tersine,  Richard  J.,  Principles  of  Inventory  and  Materials  Management,  North- 
Holland,  second  edition,  52  Vanderbilt  Ave  New  York,  NY,  10017  1982 

4.  Gee.  Manvvon,  Management  Information  System  for  the  Division  Level,  Korean 
mstitution  of  Defense,  June  1986 

5.  Lee,  Heeyung,  Master's  Thesis  The  Development  of  a  Standard  Database  for 
Republic  of  Korea  Army's  Logistics  Support  System,  Naval  Postgraduate  School, 
Monterey,  CA,93943    March  1885 

6.  Howe,  D.R.,  Data  analysis  for  database  design,  Thomson  litho  Ltd,  East  Kilbride, 
Scotland  1984 

7.  Kroenke,  David,  DATABASE  Processing:  Fundamentals,  Design,  Implementation, 
Science  Research  Association,  Inc.  A  subsidiary  of  IBM,  Second  Edition, 
Chicago,  Henley-on-Thames,  Sydney,  Toronto 

S.  Carl  Tovvnsend  Mastering  dBASEIII  PLUS  a  structured  approach.  Sybex,  2021 
Challenger  drive  #100,  Alameda,  CA  94501.    1986 


158 


INITIAL  DISTRIBUTION  LIST 

No.   Copies 

Defense  Technical  Information  Center  2 

Cameron  Station 
Alexandria,  VA    22304-6145 

Library,  Code  0142  2 

Naval  Postgraduate  School 
Monterey,  CA   93943-5002 

Library,  P.O.Box  77  1 

Gong  Neung  Dong,  Dobong  Goo 
Seoul  130-09, 
Republic  of  Korea 

Adjunct  instructor  Y.K.  Mortagy  1 

Code  54\Iy 

Department  of  Administrative  Sciences 

Naval  Postgraduate  School 

Monterey,  CA  93943 

Professor  Thomas.  Moore  1 

Code  54  Mo 

Department  of  Administrative  Sciences 

Naval  Postgraduate  School 

Monterey,  CA  93943 

Kim,  Nak-Heung  1 

176-100  Pookahyun-Dong  Sudaemoon-Koo 
Seoul,  120-00 
Republic  of  Korea 

Kim,  Jae  Soo  1 

#4-2,  375  Hvvanghak-Dong  Jung-Koo 
Seoul,  100-00 
Republic  of  Korea 

Kim,  Changwhan  1 

S.MC  2889,  Naval  Postgraduate  School 
Monterey,  CA  93943 

Erdal  Ozturk  1 

Gazipasa  Mah.  Zeytinlik  Cad.  No.5T5 
Trabzon  Turkey 


159 


10.  Park.  Taeyong 

Kyungbuk.  kumiung-gun  L'mo-myun  Okgye-dong  821 

640-74 

Republic  of  Korea 

11.  Son,  Gun  ha 

Unpyung-gu  Susaek-dong  Kukdae-vvon  (NDPS)  Apt  Ka-dong  306 
Seoul  120-00 
Republic  of  Korea 


160 


3^9' 


'm 


Thesis 

P157586 

c.l 


Patk 

A  rf^l^tifinal  databaBe 
management  system  for  a 
ROK  Army  Infantry  Divi- 
sion with  probabilistic 
inventory  control  model. 


tM 


